VB語句
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的控件
--------------------------------------------
頁:
[1]