本人程序白板子，到处复制粘贴搞了这么一串码，想着拼接到一起，结果整不会了，哪位好心的哥哥帮我看看、谢谢您们了！

dim Obj,UserName,LenS,Num,h,m,s
h=Hour(time)
m = Minute(time)
s = Second(time)
Set Obj = createobject("WScript.Shell")

UserName = Obj.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner")

YN=Obj.Popup(UserName&"00",36)

If YN = 6 Then

Rem InputTime
SWTime=InputBox ("22:35:25")

LenS=Len(SWTime)

Num=Instr(SWTime,":")

If Num=0 Then
Num=Instr(SWTime,"£º")
End If
If Num=0 Then
Call Obj.Popup("00",48)

Goto InputTime
End If
If left(SWTime,Num-1)>23 or left(SWTime,Num-1)<0 Then

Call Obj.Popup("00",48)
Goto InputTime
End If
If Mid(SWTime,LenS-Num)>59 or Mid(SWTime,LenS-Num)<0 Then

Call Obj.Popup("00",48)

Goto InputTime
End If
If Right(SWTime,LenS-Num)>59 or Right(SWTime,LenS-Num)<0 Then

Call Obj.Popup("ÃëÖÓ¸ñÊ½ÊäÈë´íÎó£¡",5,"Ê±¼ä¸ñÊ½´íÎó£¡",48)

Goto InputTime
End If

Call Obj.Popup("00", 48)
For 30
Rem [wait]
UserVar HH=0 "时"
UserVar MM=0 "分"
UserVar SS=0 "秒"
UserVar inter=6500 "第二次提交间隔"

If h = Hour(SWTime) and m = Minute(SWTime) and s= Second(SWTime)

MoveTo 1761, 1059
Delay 3000
LeftClick 1
Delay 3000
FindPic 1719,633,1791,1008,"图片",0.7,intX,intY
If intX > 0 And intY > 0 Then
Delay 2000
MoveTo intX+10, intY+7
End If
Delay 3000
LeftDown 1
Delay 1000
MoveTo 1752, 767
Delay 1000
LeftUp 1
Delay 3000
KeyPress "Esc", 1

Else

Delay 200
Goto [wait]
End If

Next
End If

域名从西部数码解析到阿里云服务器

qq_36256197

7个回复