程式採用了vb6.0編寫，form1.frm 窗體**如下：
version 5.00
begin vb.form form1
caption = "你是煞筆嗎？"
clientheight = 3135
clientleft = 60
clienttop = 405
clientwidth = 4680
linktopic = "form1"
maxbutton = 0
'false
minbutton = 0
'false
scaleheight = 3135
scalewidth = 4680
startupposition = 3
'視窗預設
begin vb.commandbutton command2
caption = "否"
height = 375
left = 2520
tabindex = 1
top = 2400
width = 1335
end begin vb.commandbutton command1
caption = "是"
height = 375
left = 480
tabindex = 0
top = 2400
width = 1335
endend
attribute vb_name = "form1"
attribute vb_globalnamespace = false
attribute vb_creatable = false
attribute vb_predeclaredid = true
attribute vb_exposed = false
private
declare
sub sleep lib
"kernel32" (byval dwmilliseconds as
long)
public s as
long
private
sub command1_mousemove(button as
integer, shift as
integer, x as
single, y as
single)
if s > 3
then
command1.caption = "是"
command2.caption = "否"
endif
endsub
private
sub command2_click()
if command2.caption = "是"
then
msgbox ("恭喜，回答正確")
unload me
else
msgbox ("回答錯誤")
endifend
subprivate
sub command1_click()
if command1.caption = "是"
then
msgbox ("恭喜，回答正確")
unload me
else
msgbox ("回答錯誤")
endifend
subprivate
sub command2_mousemove(button as
integer, shift as
integer, x as
single, y as
single)
dim i as
integer
if s = 0
then
for i = 1to5
command2.top = command2.top - 150
sleep 5
next
s = s + 1
exit
subend
ifif s = 1
then
for i = 1to5
command2.top = command2.top + 150
sleep 5
next
s = s + 1
exit
subend
ifif s = 2
then
for i = 1to5
command2.top = command2.top - 150
sleep 5
next
s = s + 1
exit
subend
ifif s = 3
then
for i = 1to5
command2.top = command2.top + 150
sleep 5
next
s = s + 1
exit
subend
if command1.caption = "否"
command2.caption = "是"
endsub
private
sub form_unload(cancel as
integer)
cancel = -1
endsub
VB 感染EXE 程式病毒原始碼
使大家清楚認識病毒程式的執行機理，提高自身程式的抵抗力。說明 1 本 目前僅是實驗模型，給新手講解原理之用，不會失控，絕對安全。2 本 僅實現了感染exe的功能，其他的功能還須你自己加入。3 為了目前的安全，本病毒只是在病毒所在的目錄下隨機選乙個檔案感染，你可以利用此功能來除錯 將來你可以修改，讓它...
VB 取網頁原始碼
private declare function urldownloadtofile lib urlmon alias urldownloadtofilea byval pcaller as long,byval szurl as string,byval szfilename as string,...
EXE呼叫mdb例項VB原始碼
這是江羽 人事管理軟體 中用以啟動rsgl l.mdb的exe應用程式原始碼，現在帖出來與大家共同分享，原始碼如下 定義公用模組 declare function shellexecute lib shell32.dll alias shellexecutea byval hwnd as long,...