怎么将这些代码组合到一个脚本中(附代码)
#region ;**** 参数创建于 ACNWrapper_GUI ****#AutoIt3Wrapper_icon=C:\Windows\system32\SHELL32.dll|-136
#AutoIt3Wrapper_Outfile=C:\11shalong.exe
#endregion ;**** 参数创建于 ACNWrapper_GUI ****
;;沙龙
#include<ie.au3>
$ie = _IECreate("http://222.222.222.222")
$form1 = _IEFormGetCollection($ie, "form1");;;表单名称
$oQuery = _IEFormElementGetObjByName($form1, "uc_top1$loginout$txtusername")
_IEFormElementSetValue($oQuery, "44200000040")
$oQuery = _IEFormElementGetObjByName($form1, "uc_top1$loginout$txtpwd")
_IEFormElementSetValue($oQuery, "963852")
$oSubmit = _IEFormElementGetObjByName($form1, "uc_top1$loginout$btnlogin");从上面的form1表单里找一个名字叫btnLogin的单元
_IEAction($oSubmit, "click");做click的点击
If FileExists("ie.ini") Then
Global $z
$ys = IniRead("ie.ini", "config", "ys", "");;时间延时
Sleep($ys2)
$1 = IniRead("ie.ini", "config", "1", "");;第1个坐标
$2 = IniRead("ie.ini", "config", "2", "");;第2个坐标
$3 = IniRead("ie.ini", "config", "3", "");;第3个坐标
$4 = IniRead("ie.ini", "config", "4", "");;第4个坐标
$5 = IniRead("ie.ini", "config", "5", "");;第5个坐标
$6 = IniRead("ie.ini", "config", "6", "");;第6个坐标
$7 = IniRead("ie.ini", "config", "7", "");;第7个坐标
$8 = IniRead("ie.ini", "config", "8", "");;第8个坐标
$9 = IniRead("ie.ini", "config", "9", "");;我要试用的坐标
$10 = IniRead("ie.ini", "config", "10", "");;标语输入框
$11 = IniRead("ie.ini", "config", "11", "");;标语输入框
$12 = IniRead("ie.ini", "config", "12", "");;标语输入框
$13 = IniRead("ie.ini", "config", "13", "");;标语输入框
$14 = IniRead("ie.ini", "config", "14", "");;标语输入框
$15 = IniRead("ie.ini", "config", "15", "");;标语输入框
$16 = IniRead("ie.ini", "config", "16", "");;标语输入框
$17 = IniRead("ie.ini", "config", "17", "");;标语输入框
$29 = IniRead("ie.ini", "config", "29", "");;标语输入框
$18 = IniRead("ie.ini", "config", "18", "");;标语输入框
$19 = IniRead("ie.ini", "config", "19", "");;标语输入框
$20 = IniRead("ie.ini", "config", "20", "");;标语输入框
$21 = IniRead("ie.ini", "config", "21", "");;标语输入框
$22 = IniRead("ie.ini", "config", "22", "");;标语输入框
$23 = IniRead("ie.ini", "config", "23", "");;标语输入框
$24 = IniRead("ie.ini", "config", "24", "");;标语输入框
$25 = IniRead("ie.ini", "config", "25", "");;标语输入框
$26 = IniRead("ie.ini", "config", "26", "");;标语输入框
$27 = IniRead("ie.ini", "config", "27", "");;标语输入框
$28 = IniRead("ie.ini", "config", "28", "");;标语输入框
$start = IniRead("ie.ini", "config", "start", "");;标语输入框
$over = IniRead("ie.ini", "config", "over", "");;标语输入框
$shalong = IniRead("ie.ini", "config", "shalong", "");;标语输入框
$huaxing = IniRead("ie.ini", "config", "huaxing", "");;标语输入框
$dongfang = IniRead("ie.ini", "config", "dongfang", "");;标语输入框
$nanyang = IniRead("ie.ini", "config", "nanyang", "");;标语输入框
$zhian = IniRead("ie.ini", "config", "zhian", "");;标语输入框
$zhengchang = IniRead("ie.ini", "config", "zhengchang", "");;标语输入框
$a = StringSplit($1, ',')
$b = StringSplit($2, ',')
$c = StringSplit($3, ',')
$d = StringSplit($4, ',')
$e = StringSplit($5, ',')
$f = StringSplit($6, ',')
$g = StringSplit($7, ',')
$h = StringSplit($8, ',')
$i = StringSplit($9, ',')
$j = StringSplit($10, ',')
$k = StringSplit($11, ',')
$l = StringSplit($12, ',')
$m = StringSplit($13, ',')
$n = StringSplit($14, ',')
$o = StringSplit($15, ',')
$p = StringSplit($16, ',')
$q = StringSplit($17, ',')
$z3 = StringSplit($29, ',')
$r = StringSplit($18, ',')
$s = StringSplit($19, ',')
$t = StringSplit($20, ',')
$u = StringSplit($21, ',')
$v = StringSplit($22, ',')
$w = StringSplit($23, ',')
$x = StringSplit($24, ',')
$y = StringSplit($25, ',')
$z = StringSplit($26, ',')
$z1 = StringSplit($27, ',')
$z2 = StringSplit($28, ',')
MouseClick("left", $a, $a)
Sleep($ys)
MouseClick("left", $b, $b)
Sleep($ys)
MouseClick("left", $c, $c)
Sleep($ys)
MouseClick("left", $d, $d)
Sleep($ys)
MouseClick("left", $e, $e)
Send(@year&"-"&@mon&"-"&@mday& " " &$start)
Sleep($ys)
MouseClick("left", $f, $f)
Sleep($ys)
Send("{BS 19}")
Sleep($ys)
Send(@year&"-"&@mon&"-"&@mday& " " &$over)
MouseClick("left", $g, $g)
Sleep($ys)
MouseClick("left", $h, $h)
Sleep($ys)
Send($shalong)
MouseClick("left", $i, $i)
Sleep($ys)
MouseClick("left", $j, $j)
Sleep($ys)
MouseClick("left", $k, $k)
Sleep($ys)
MouseClick("left", $l, $l)
Sleep($ys)
MouseClick("left", $m, $m)
Sleep($ys)
Send($zhian)
MouseClick("left", $n, $n)
Sleep($ys)
MouseClick("left", $o, $o)
Sleep($ys)
MouseClick("left", $p, $p)
Sleep($ys)
MouseClick("left", $q, $q)
Send($zhengchang)
Sleep($ys)
MouseClick("left", $z3, $z3)
Sleep($ys)
Send("{enter}")
;;;;;;;;;;;;;;;;开始保安巡查;;;;;;;;;;;;;;;;;;;;;
MouseClick("left", $r, $r)
Sleep($ys)
MouseClick("left", $s, $s)
Sleep($ys)
MouseClick("left", $t, $t)
Sleep($ys)
MouseClick("left", $u, $v)
Sleep($ys)
MouseClick("left", $v, $v)
Sleep($ys)
Send($shalong)
MouseClick("left", $w, $w)
;;Sleep($ys)
Send($zhengchang)
MouseClick("left", $x, $x)
Sleep($ys)
MouseClick("left", $y, $y)
Sleep($ys)
MouseClick("left", $z, $z)
Sleep($ys)
MouseClick("left", $z1, $z1)
Sleep($ys)
MouseClick("left", $z2, $z2)
Sleep($ys)
Send("{enter}")
ProcessClose("iexplore.exe")
Else
MsgBox(0, "basc提示", "没有发现配置文件，程序将退出")
EndIf
问题:点击坐标不变,需要修改的地方为IE登陆的用户密码,还有代码中的Send($shalong)
我有4个用户,不想编译4个EXE,能否整合到一个EXE文件中,求解
页:
[1]