求教一个可能与VBA无关的语言或者程序方面的问题

yvhgydn

感谢kevinchengcw 带我进入AU3
下面将写的一个身份证号码验证器的代码分享给大家，虽然不是EXCEL的范畴
$sff = InputBox ("身份证验证器","请输入十八位身份证号码")
If StringLen ($sff) = 18 Then
        $r = 1
    $s = 0
     For $i = 17 To 1 Step -1
         $s = $s + (2 ^ $i) * StringMid($sff, $r, 1)
         $r += 1
         Next               
         $sfx =Mod($s,11)
     Dim $Array1[11]=[1,0,"X",9,8,7,6,5,4,3,2]
     If $Array1[$sfx]<> StringRight($sff, 1) Then
         MsgBox ("","审核结果","   该身份证号码不正确"&chr(13)&chr(13)&"请到户口所在公安机关核对")
         Else
                 MsgBox ("","审核结果","该身份证号正确")
      EndIf
ELSE
     MsgBox ("","审核结果","您录入的身份证号码为"&StringLen ($sff)&"位")
EndIf

kevinchengcw

那天搜了一下,写了一个自动登陆excelhome的程序,编译后,每天只要双击就可以登陆了,现学现卖,明天分享给你

不过说真的,你学的蛮快的,我都没这么用心学

[ 本帖最后由 kevinchengcw 于 2010-3-26 21:43 编辑 ]

kevinchengcw

#include <GUIConstants.au3>
#include <IE.au3>

$oIE = _IECreate("http://club.excelhome.net",0,1,1,1 )

_IELoadWait ($oIE)

$UserName = _IEGetObjById ($oIE, "username")
If IsObj($UserName) Then $UserName.value = "在这输入用户名"
$PassWord = _IEGetObjById ($oIE, "password")  
If IsObj($PassWord) Then $PassWord.value = "在这输密码"
$submit = _IEGetObjByName ($oIE, "userlogin")
If IsObj($submit) Then $submit.click

这个要编译了再用噢，把里面的“在这输入用户名”换成你的用户名，“在这输密码”改成你的密码，编译后双击可登陆论坛了，不编译被人偷了密码我可不负责啊

yvhgydn

kevinchengcw兄的代码使用起来确实很方便，我对代码都利用帮助看了一遍，但有好多问题都看不懂，希望兄台不吝赐教
#include <GUIConstants.au3>;在这里，GUIConstants.au3这个文件名从何而来，从何而生
#include <IE.au3>;这个问题同上，IE.au3从何而生，并且为什么要加上这两句代码才能执行

$oIE = _IECreate("http://club.excelhome.net",0,1,1,1 )

_IELoadWait ($oIE)
$UserName = _IEGetObjById ($oIE, "username");对第二参数$s_Id，是如何确定为"username"的，我将该网页另存为文本，未找到"username"这个名称或ID
If IsObj($UserName) Then $UserName.value = "yvhgydn"
$PassWord = _IEGetObjById ($oIE, "password")  ;对第二参数$s_Id，是如何确定为"password"的，我将该网页另存为文本，未找到"password"这个名称或ID
If IsObj($PassWord) Then $PassWord.value = "yvhgydn"
$submit = _IEGetObjByName ($oIE, "userlogin");同样，对第二参数，是如何确定为 "userlogin"的
If IsObj($submit) Then $submit.click

[ 本帖最后由 yvhgydn 于 2010-3-27 11:07 编辑 ]

kevinchengcw

你如果学过C语言的话应该知道C有头文件，AU3也一样，有很多做好的头文件，里面定义了很多内容供引用，有点像VBA里面的类，因为要用到界面及IE相关内容，所以引用这两个头文件，否则一些函数编译时会告诉你未定义
对于下面的问题是这样的，根据我找到的那个地方的说明，再参照登陆页面的源代码，就是IE里有个查看源文件所打开的内容，找到相关的地方确定关键字是什么，就可以用程序找到并发送相关消息了，你可以自己打开研究下源文件

kevinchengcw

在你的au3目录下有个include目录，里面都是头文件

yvhgydn

第一二问题弄懂了一点点，知道是在标准库文件中进行的调用，但是，我要如何才能知道该调用哪一个文件呢

kevinchengcw

这个就要研究相关文件的说明了，头文件里面有，全英文的，可以自己研究，不懂的话去网上搜一下，毕竟要全部用起来要下大力气的，或者你只研究你会常用到的就行了

yvhgydn

挨个再看了一下，有以下一点体会，不知对与不对
一是kevinchengcw兄的代码采取了调用其他函数的办法（或者说类似于调用其他函数的办法，用词可能不恰当），并且使用$UserName.value = "yvhgydn"的办法对控件进行赋值，最终达到一个类似于打开IE并登录的办法
另外还有一种就是可以直接搜寻IE并赋于网址等待打开，然后使用发送按键比如TAB等进行鼠标键盘的操作达到打开IE并输入口令
上面的其实就是将口令进行赋值，后一种就是模拟输入口令的办法，当然路不只一条，以上只是在网上搜索及帮助后的一点粗浅见解，请兄台指正

kevinchengcw

差不多是这样的，你真的挺好学的，我都没研究那么多，赋予网址的那个不是每个网站都行，所以个人觉得第一种更通用些