还没有开始做呢都被别人给做了
如果没记错的话，好像可以通过建立js对象直接登录
Gmail邮箱
#include <IE.au3>
dim $a="用户名",$b="密码"
$aIE = _IECreate ("http://www.gmail.com")
if $aIE Then Send("{ENTER}")
$aForm = _IEFormGetObjByName ($aIE, "gaia_loginform")
$ming = _IEFormElementGetObjByName ($aForm, "Email")
$mima = _IEFormElementGetObjByName ($aForm, "Passwd")
$an = _IEFormElementGetObjByName ($aForm, "signIn")
_IEFormElementSetValue ($ming, $a,0)
_IEFormElementSetValue ($mima, $b)
_IEAction ($an, "click")
Sleep(8)
Send("{ENTER}")
不能使用send函数，另外用其它办法试试
找了几个vb习题，有兴趣的新手可以试试：
1. 在文本框Text1中输入一串字符，统计其中字母（不区分大小写），数字和其他字符的个数。
2. 输出N个素数。
3. 随机产生20个200～400之间的随机整数，按每行4个输出，并求出其中的最大值。
4. 随机产生10个数存入数组中，用选择排序法对其从小到大的顺序排序。
5.输入一个整数，判断该数是否是回文数。
6. 输入一个整数，判断该数是否是水仙花数（所谓水仙花数是指一个三位数，它的个位、十位、百位数字的立方和恰巧等于这个数本身。例如：153=1^3+5^3+3^3）
7. 分别输入年份以及月份，输出该月所对应的天数（注意闰年问题）。
8.建立一个登录窗口,要求输入密码。设定密码为“abcdefg”;若密码正确,显示“祝贺你,成功登录!”;若密码不正确,显示“对不起,密码错误,无法登录!”，并统计次数，当输入超过3次时，则退出系统。
9．求任意正整数 n 的阶乘。（N！=1*2*3*……*N）
10.编写程序，输出输出n=7“杨辉三角”,如下图所示（两种显示方法）。
本贴来自ZDNetChina中文社区 http://bbs.zdnet.com.cn ,本贴地址：http://bbs.zdnet.com.cn/forum.php?mod=viewthread&tid=1039098
找了几个vb习题，有兴趣的新手可以试试：
1. 在文本框Text1中输入一串字符，统计其中字母（不区分大小写），数字和其他字符的个数。
2. 输出N个素数。
3. 随机产生20个200～400之间的随机整数，按每行4个输出 ...
pcbar 发表于 2009-11-6 11:35 http://www.autoitx.com/images/common/back.gif
哇！大师出题啦！瞧瞧！:face (26):
细看了几遍，感觉都好有难度哦！
向前辈致敬！:face (20):
正好没有事情做，练练手~
; 计算字符出现频率。
Local $sResult, $sText = InputBox("", "字符出现频率"), $sVal
For $i = 1 To StringLen($sText)
$sVal = StringMid($sText, $i, 1)
Assign(".." & $sVal, Eval(".." & $sVal) + 1)
$sResult = StringReplace($sResult, ".." & $sVal & @TAB & (Eval(".." & $sVal) - 1) & @CRLF, "") & _
".." & $sVal & @TAB & Eval(".." & $sVal) & @CRLF
Next
Msgbox(0, '', $sResult)
; 1 - 1000中的素数。
Local $sResult = ""
For $i = 3 To 1000 Step 2
$iX = 0
For $j = 3 To 37 Step 2
If 1 / Mod($i, $j) = "1.#INF" Then $iX += 1
Next
If $iX < 2 Then $sResult &= $i & ", "
Next
Msgbox(0, '', "2, " & StringTrimRight($sResult, 2))
; 随机矩阵
Local $iMax, $sResult = "", $iRandom
For $i = 1 To 20
$iRandom = Random(200, 400, 1)
$sResult &= $iRandom & ", "
If Mod($i, 4) = 0 Then $sResult = StringTrimRight($sResult, 2) & @LF
If $iRandom > $iMax Then $iMax = $iRandom
Next
Msgbox(0, $iMax, $sResult)
; 回文数
Do
$iFlags = 0
$sNum = Number(InputBox("", "判断回文数"))
$iLength = StringLen($sNum)
If $iLength < 2 OR Mod($iLength, 2) = 0 Then ContinueLoop
For $i = 1 To Int($iLength / 2)
If StringMid($sNum, $i, 1) <> StringMid($sNum, $iLength - $i + 1, 1) Then $iFlags = 1
Next
If $iFlags = 1 Then ContinueLoop Msgbox(0, "", "NO")
ExitLoop Msgbox(0, '', "YES")
Until 0
; 水仙花数
Do
Local $iX = Number(InputBox("", "水仙花数")), $iY = 0
If StringLen($iX) <> 3 Then ContinueLoop
For $i = 1 To 3
$iY += Number(StringMid($iX, $i, 1)) ^ 3
Next
If $iY = $iX Then ExitLoop Msgbox(0, $iY, "YES")
Msgbox(0, $iY, "NO")
Until 0
; 阶乘
Local $iX = 7, $iY = 1
For $i = 1 To $iX
$iY *= $i
Next
Msgbox(0, '', $iY)
23# pusofalse
你算高手了吧:face (13):
23# pusofalse
第一题能不能写的易读一点啊，只要求出字母的个数，数字的个数，其它字符的个数
第二题求的是素数/质数
第三题没有将最大的数列出，或排在第一位。
5，6，9题死循环，不合适吧
不及格
Re 25#:
第一题看错题意，大脑短路。
第二题大脑严重短路，修改如下：
Local $sResult
For $i = 3 To 1000 Step 2
$iX = 0
For $j = 3 To 37 Step 2
If Mod($i, $j) = 0 Then $iX += 1
Next
If $iX < 2 Then $sResult &= $i & ", "
Next
Msgbox(0, "", StringTrimRight($sResult, 2))第3题的随机数，$iMax就是求得的最大数。
第9题的阶乘，不明白为何是死循环。
本帖最后由 pcbar 于 2009-11-6 16:23 编辑
26# pusofalse
第3题我没看清，正确，
你似乎还没明白什么是质数！
只能被1和其自身整除的数
本帖最后由 pusofalse 于 2009-11-6 16:34 编辑
Re 27#:
算法有误，屏蔽****
Re 27#:
感谢赐教！~Local $sResult, $iX, $aNum =
For $i = 3 To 1000 Step 2
$iX = 0
For $j IN $aNum
If Mod($i, $j) = 0 Then
$iX = 1
ExitLoop
EndIf
Next
If $iX = 0 Then
$sResult &= $i & ", "
Redim $aNum
$aNum = $i
EndIf
Next
Msgbox(0, Ubound($aNum), "2, " & StringTrimRight($sResult, 2))
29# pusofalse
ok:face (20):