VBSはQQの自動登録を実現する

忙しい一ヶ月...Python动脳商城ができたばかりで、ボスはまた私に新しい需要を渡して、たぶんこのようなことができます:プログラムの制御を通じて、毎日自動的にQQの友达を追加することができて、人工的に手動で追加する時間のコストを省いて、しかもQQの友达を追加する时、プログラムは自動的に話術を生成して、どの話術が最も広く受け入れられて、友达の成功率が最も高いことを分析することができます.一方、友人を追加する際には、「私の名前は何ですか?」など、さまざまな検証問題に対応しています.“int i = 1;i++=?”,これらの検証の問題をデータベースに保存して、それから分類してまとめて、機械の学習の方式を通じて、答えを出して、私はこの任務が任重道遠で、ボスは私が全力を尽くすとしか言えません.の
最初の構想はテンセントを呼び出すことによって自動的に友达のインタフェースを追加することで、しかし半日APIのドキュメントを探して、探し当てていないようです--!APIドキュメントアドレスを添付します.http://wiki.open.qq.com/wiki/PC%E5%BA%94%E7%94%A8%E6%8E%A5%E5%85%A5wiki%E7%B4%A2%E5%BC%95見つけた大物がいたら、文末にメッセージを残して教えてくれませんか^
そこで次のアイデアは,クライアントテストツール,QTP,すなわちUFTによる繰返しクリック操作である.後で直接VBSのシナリオを書くのがもっと速いことを発見して、どうせQTPの本質はVBSです.まずQを自動オンにしてログインしてみます

set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.Run "  QQ    " 
WScript.Sleep 3000       
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100 
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.Sendkeys "{enter}"
WScript.Sleep 100
WshShell.Sendkeys "{enter}"
WScript.Sleep 100
WshShell.SendKeys "  QQ {tab}"      
Wscript.Sleep 300
WshShell.SendKeys "  QQ  "    
Wscript.Sleep 300
WshShell.Sendkeys "{enter}"

なお、フォルダ名が8文字以上、または中央にスペースがある場合は「PROGRA~1」と書く.名前の最初の6文字を残して「~1」を付ける.この「~1」は、最初の6文字の同じフォルダ名の最初のフォルダを表し、例えば2つのフォルダの間にスペースがある:Program FilesとProgram Filez、では、まず名前でアイコンを並べて、一番前を見ると~1、2つ目は~2です
パスワードが正しくないのは、パスワードに特殊な文字が含まれているからだそうですが、これらの文字はVBSには他の意味があります.これはまだ具体的に研究されていません.この問題に遭遇したら、みんなは自分で解決するしかありません.
新しいテキストファイルを作成し、上のコードをコピーし、ファイルをAutoQQに名前を変更します.VBS、ダブルクリックすると効果が見えます.
次は自動的に友達のスクリプトを追加してみて、本文は絶えずingを更新します...