1. リソース
直接ダウンロードしてクリックして使用
- https://www.lanzoui.com/ ithKT0jixcha アクセスコード: 24647
2. 前に書く
- 多くのユーザーは、複数のメールボックス アカウントを使用してログインする必要がある場合があります。メールボックスに 1 つずつ手動でログインすることは不可能ではありませんが、特にログインする必要があるメールボックスの数が数十または数百に達すると、手動で 1 つずつ入力するのは面倒です。怠惰は美徳であるのに、自動的にできるのに、なぜ手動で行うのでしょうか? だから私は次の小さなスクリプトを持っています. 「Three-Body」アニメーションのエピソードを見ているとき, 私は何百もの163の電子メールアカウントすべてにログインしました. 私は彼が仕事をするのを楽しませています.
3.効果
4. 使用上の注意
-
ログインするたびに、Netease Mailbox Master を全画面表示にする必要があります。これにより、異なる位置によるボタンの変更を回避し、同時にメールボックス設定インターフェイスを開くことができます。
-
-
私のコンピューターのモニターの解像度は 1920X1080 です。あなたの解像度が私の解像度と異なる場合は、自分で座標を手動で変更する必要があります。
-
これらのボタンについては特に難しいことはなく、その機能はその名前と同じなので、試してみてください。
-
パスワードファイルは行ごとに設定する必要があります。前はシークレットユーザー名、後ろはパスワードで、途中でタブで区切られています。
-
-
途中で一時停止する必要がある場合は F7 キーを押し、スクリプトを再開する必要がある場合は F8 キーを押します。
5. コード
5.1. コード設計の原則
5.2. コアコード
### #SingleInstance Ignore ;;执行特定窗口前先关闭特定窗口
SwitchIME(dwLayout){ ;;切换输入法使用的子函数
HKL:=DllCall("LoadKeyboardLayout", Str, dwLayout, UInt, 1)
ControlGetFocus,ctl,A
SendMessage,0x50,0,HKL,%ctl%,A
}
等待窗口出现并将其激活(title)
{
WinWait, %title%, ;等待窗口出来
IfWinNotActive, %title%, , WinActivate, %title%,
WinWaitActive, %title%,
}
等待窗口出现并将其激活("网易邮箱大师")
WinMaximize,网易邮箱大师
strings := FileOpen("E:\Documents\Desktop\info.txt", "r").Read()
Loop, parse, strings, `n
{
lines := A_LoopField
word_array := StrSplit(lines, A_Tab , ".") ; 忽略句点.
users := word_array[1]
pass := word_array[2]
;MsgBox,% word_array[1]
x1 := 400 ;添加邮箱
y1 := 524
Click,%x1%,%y1%
SwitchIME(0x04090409) ;;切换英文输入法
Sleep 1000
send,%users%
Sleep 1000
send,{Tab}
Sleep 1000
send,%pass%
Sleep 1000
send,{Enter}
Sleep 1000
}
5.3. 完全なコード
### ; Generated by Auto-GUI 3.0.1
#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
SetBatchLines -1
;#Include 热键.ahk
Gui Font, s9, Segoe UI
Gui Add, Button, x232 y93 w152 h52, 批量登录网易邮箱
Gui Add, Button, x43 y198 w525 h192, 暂停
Gui Add, Button, x407 y93 w152 h52, 重启脚本
Gui Add, Button, x48 y93 w152 h52, 选择密码文件
Gui Show, w620 h420, 网易邮箱批量登录器 v1.0
Return
SwitchIME(dwLayout){ ;;切换输入法使用的子函数
HKL:=DllCall("LoadKeyboardLayout", Str, dwLayout, UInt, 1)
ControlGetFocus,ctl,A
SendMessage,0x50,0,HKL,%ctl%,A
}
等待窗口出现并将其激活(title)
{
WinWait, %title%, ;等待窗口出来
IfWinNotActive, %title%, , WinActivate, %title%,
WinWaitActive, %title%,
}
button选择密码文件:
FileSelectFile, SelectedFile, 3, , Open a file, Text Documents (*.txt; *.doc)
if (SelectedFile = "")
MsgBox, The user didn't select anything.
else
MsgBox, The user selected the following:`n%SelectedFile%
return
button批量登录网易邮箱:
等待窗口出现并将其激活("网易邮箱大师")
WinMaximize,网易邮箱大师
strings := FileOpen(SelectedFile, "r").Read()
Loop, parse, strings, `n
{
lines := A_LoopField
word_array := StrSplit(lines, A_Tab , ".") ; 忽略句点.
users := word_array[1]
pass := word_array[2]
;MsgBox,% word_array[1]
x1 := 39 ;点击设置
y1 := 998
x2 := 201 ;点击邮箱设置
y2 := 241
x3 := 400 ;添加邮箱
y3 := 524
Click,%x1%,%y1%
Sleep 300
Click,%x2%,%y2%
Sleep 300
Click,%x3%,%y3%
Sleep 300
SwitchIME(0x04090409) ;;切换英文输入法
Sleep 300
send,%users%
Sleep 1000
send,{Tab}
Sleep 300
send,%pass%
Sleep 1000
send,{Enter}
Sleep 1000
}
return
button暂停:
Pause
return
button重启脚本:
Reload
return
F7:: ;暂停脚本
Pause
return
F8:: ;重启脚本
Reload
return
GuiEscape:
GuiClose:
ExitApp
000
}
return
button暂停:
Pause
return
button重启脚本:
Reload
return
F7:: ;暂停脚本
Pause
return
F8:: ;重启脚本
Reload
return
GuiEscape:
GuiClose:
ExitApp