VB語句

mhfo

app.taskvisible=false    '隱藏執行

-----------------------------
WebbBrowser.Navigate.Text1.text  '瀏覽器  TEXT=網址
需先增加套件..才能引用
-------------------------------


FindWindow             '找尋執行視窗  API



dim hwd as long

hwd=Findwindow(vbNullString, "想找尋的視窗名")


if <>0 THEN

MsgBox"已經找到"

ELSE

MsgBox"沒找到"

END IF
--------------------------------

shell "ntsd -c  q  -pn"&Text1    'text1=處理程序名,此程式用於直接關閉Text1程序

---------------------------------


filecopy "複製擋按"

FileCopy app.Path &"\"& app.EXEName & ".exe","C:\123.exe"

---------------------------------
kill"檔案路徑名"

-----------------------------------
flashwindow.me.load=true   '程式外框閃爍

------------------------------------



if app.PrevInstace=true then  <== 判定程式是否已開啟

Unload.Me

end if
-------------------------------------

網頁API


call ShellExecute(Me.hwnd,"Open,Text1.text,"",App.Path,1)

------------------------------------

Shell"shutdown -s -t 30"    '30秒關機

Shell"shutdown -r -t 30"    '30秒重開

--------------------------------------

Shell"檔案路徑"     '執行該檔案

-----------------------------------------
黑客參透筆記

----------------------------------------
closewindows.Me.hwnd    'closewindows程式最小化

-------------------------------------------
setWindowText   '修改程式標題

----------------------------------------------
RGB(x,x,x)  '改變顏色
---------------------------------------------
找尋支援FLASH的控件

--------------------------------------------