[VB6] Delay函數，取代難用的Sleep
- Private Sub Delay(ByVal Sec As Single)
Dim sgnThisTime As Single, sgnCount As Single
sgnThisTime = Timer
Do While sgnCount < Sec
sgnCount = Timer - sgnThisTime
DoEvents
Loop
End Sub
[低調] SauceNAO 以圖搜圖輕鬆找出原繪師（Pixiv Only）
畢竟是低調偷偷推阿～我也懶得打太多 XD （明明是你自己懶 簡單來說這個是利用 Google、iqdb、TinEye 所完成的一個以圖搜圖網站，只要丟圖片給他就可以知道該圖是否有在 P 站（公開）發表，然後 ID 多少，相似度等等...
我想請問一下...若兩個"動作"同時使用到delay...則其中一個動作就會完全失效...要重新開啟程式...這該如何處理呢@@?
回覆刪除舉例:
TIMER1設置執行時間50秒執行時點按鍵A"delay"5秒後點B
TIMER2設置執行時間48秒執行時點按鍵C"delay"10秒後點D
則這樣TIMER2的動作就會完全停止(變成永久delay)重新啟動TIMER2也沒效果..必須要重新啟動程式
併入同一個Timer使用倒數的方式並將InterVal設為1000(1秒鐘)
刪除舉例
T = 50
If T <= 0 Then 執行時點按鍵A"delay"5秒後點B
T = 48
If T <= 0 Then 執行時點按鍵C"delay"10秒後點D
這樣試試看