请高手帮忙，小精灵代码转换成Au3代码
我是Au3初学者，请高手帮忙，一个小精灵的代码转换成Au3代码。Description=进口报关V3
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=122
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
Type=0
Number=1
SetupOCXFile=
Content=
UserVar TotalCustomListNo 集报号
UserVar prepInputNO 预录入编号
UserVar orderNO 航次号
UserVar packType=2 包装种类
UserVar BANO=DropList{PCZ:K57307D00003|CANON:K57307D00002} 备案号
UserVar CustomCorp=DropList{货通报关行:4404180023|燕霖报关行:4404180174|格力物流:4404151047} 申报单位
UserVar CustomCorp1=DropList{拱香洲办:5730|九洲海关:5750|拱白石办:5760|珠澳跨境:5791|湾仔海关:5740} 申报现场
UserVar CustomCorp2=DropList{拱香洲办:5730|九洲海关:5750|福保税关:5321|皇岗海关:5301|湾仔海关:5740} 进口口岸
UserVar startpage=1 从第几页开始输入
VBS dim count,pagenow
VBS count = 0
VBS pagenow=99999999999
VBS set conn = createobject("adodb.connection")
VBS conn.open "provider=sqloledb;server=192.168.1.10;database=BSVMI_V3;uid=sa;pwd=gree56_nmdfys_sky;"
VBS set rs1 = conn.execute("select GroupBy_NO page,sum(BoxNum) boxNum,round(sum(CustomGrossWeight),0) GW, CEILING(sum(CustomNetWeight)) NW from V_Atc_InCustom_Tools where TotalCustomListNo='" & TotalCustomListNo & "' group by GroupBy_NO")
VBS set rs2 = conn.execute("select GroupBy_NO as MyGroup_CustomRecord,Custom_Condition_SN,Custom_Condition,CAST(BASerialNO AS int),sourceCountry_id sc,CustomNetWeight NW,Custom_Unit_Tag tag1,Custom_Legal_Unit1_Tag tag2,Custom_Legal_Unit2_Tag tag3,GroupBy_NO page,BASerialNO,CustomQty Qty,CustomAmount Amount from V_Atc_InCustom_Tools where TotalCustomListNo='" & TotalCustomListNo & "' ORDER BY page,Custom_Condition_SN,Custom_Condition,CAST(BASerialNO AS int), sourceCountry_id")
VBS dim tomorrow,today,nextday
VBS today=date()
VBS nextday=DateAdd("d",1,today)
VBS tomorrow=year(nextday)&fix(month(nextday)/10)&(month(nextday)-fix(month(nextday)/10)*10)&fix(day(nextday)/10)&(day(nextday)-fix(day(nextday)/10)*10)
While startpage>1
If not rs1.eof
VBS rs1.movenext
VBS pagenow=rs1("page")
While not rs2.eof
If not pagenow=rs2("MyGroup_CustomRecord")
VBS rs2.movenext
Else
Goto NEXTMST
EndIf
EndWhile
EndIf
Rem NEXTMST
VBS startpage=startpage-1
EndWhile
While not rs1.eof
MoveTo 32,58
LeftClick 1
Delay 2000
MoveTo 119,106
LeftClick 1
If CustomCorp1="5730"
SayString "5730"
ElseIf CustomCorp1="5750"
SayString "5750"
ElseIf CustomCorp1="5760"
SayString "5760"
ElseIf CustomCorp1="5791"
SayString "5791"
ElseIf CustomCorp1="5740"
SayString "5740"
EndIf
Delay 1000
KeyPress 13,1
Delay 1500
MoveTo 475,201
LeftClick 1
SayString prepInputNO
Delay 1000
KeyPress 13,1
Delay 1500
MoveTo 475,217
LeftClick 1
If CustomCorp2="5730"
SayString "5730"
ElseIf CustomCorp2="5750"
SayString "5750"
ElseIf CustomCorp2="5321"
SayString "5321"
ElseIf CustomCorp2="5301"
SayString "5301"
ElseIf CustomCorp2="5740"
SayString "5740"
EndIf
Delay 2000
MoveTo 185,236
LeftClick 1
SayString BANO
Delay 500
KeyPress 13,1
Delay 3000
MoveTo 185,254
LeftDoubleClick 1
SayString tomorrow
Delay 1000
KeyPress 13,1
Delay 2000
MoveTo 185,304
LeftClick 1
SayString CustomCorp
Delay 1000
KeyPress 13,1
Delay 2000
MoveTo 539,271
LeftClick 1
SayString "2"
Delay 1000
KeyPress 13,1
Delay 1500
MoveTo 533,304
LeftClick 1
SayString orderNO
Delay 1000
MoveTo 333,321
LeftClick 1
SayString "1233"
Delay 1000
KeyPress 13,1
Delay 1500
MoveTo 245,358
LeftClick 1
SayString "110"
KeyPress 13,1
Delay 1000
MoveTo 333,358
LeftClick 1
SayString "110"
KeyPress 13,1
Delay 1500
MoveTo 528,358
LeftClick 1
Delay 500
SayString "44041"
KeyPress 13,1
Delay 1500
MoveTo 528,372
LeftClick 1
SayString "1"
KeyPress 13,1
Delay 1000
MoveTo 158,407
LeftClick 1
Delay 500
SayString rs1("boxNum")
Delay 500
MoveTo 287,407
LeftClick 1
Delay 500
SayString packType
Delay 500
MoveTo 433,407
LeftClick 1
Delay 500
SayString rs1("GW")
Delay 500
MoveTo 578,407
LeftClick 1
Delay 500
SayString rs1("NW")
Delay 500
MoveTo 202,442
LeftClick 1
SayString "有纸报关"
Delay 1000
MoveTo 354,442
LeftClick 1
Delay 500
SayString "全新。品牌、规格型号详见装箱单。"
Delay 500
While not rs2.eof
count = count + 1
VBS pagenow=rs2("MyGroup_CustomRecord")
If count = 21
Goto nextLoop
EndIf
MoveTo 289,561
LeftClick 1
Delay 500
SayString rs2("BASerialNO")
Delay 1500
KeyPress 13,1
Delay 4000
MoveTo 185,596
LeftClick 1
Delay 1000
Delay 0 #成交数量
If rs2("tag1")=1
SayString rs2("Qty")
Delay 1000
ElseIf rs2("tag1")=2
SayString rs2("NW")
Delay 1000
EndIf
MoveTo 529,596
LeftDoubleClick 1
Delay 1000
SayString rs2("Amount")
MoveTo 185,613
LeftClick 1
Delay 1000
Delay 0 #法定数量
If rs2("tag2")=1
SayString rs2("Qty")
ElseIf rs2("tag2")=2
SayString rs2("NW")
ElseIf rs2("tag2")=3
SayString rs2("Qty")*1000
ElseIf rs2("tag2")=4
SayString rs2("Qty")/1000
EndIf
MoveTo 185,629
LeftClick 1
Delay 1300
Delay 0 #第三数量
If rs2("tag3")=1
SayString rs2("Qty")
ElseIf rs2("tag3")=2
SayString rs2("NW")
ElseIf rs2("tag3")=3
SayString rs2("Qty")*1000
ElseIf rs2("tag3")=4
SayString rs2("Qty")/1000
EndIf
MoveTo 424,629
LeftClick 1
Delay 1000
Delay 0 #原产地
SayString rs2("sc")
Delay 500
KeyPress 13,1
Delay 1000
MoveTo 619,613
LeftClick 1
Delay 500
SayString "其它"
Delay 500
MoveTo 529,629
LeftClick 1
Delay 500
SayString "3"
Delay 1000
KeyPress 13,1
Delay 1000
KeyPress 13,1
VBS rs2.movenext
EndWhile
Rem nextLoop
count = 0
VBS rs1.movenext
MoveTo 312,58
LeftClick 1
Delay 12000
KeyPress 13,1
Delay 1000
VBS prepInputNO=prepInputNO+1
EndWhile
VBS rs1.close
VBS rs2.close
VBS conn.close
VBS set conn=nothing
MessageBox "成功完成录入！"
页:
[1]