昕星谷

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=TLB.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=自动领取U.115红包与刷分程序,更新链接<a href="http://oneyicn.gobaiyi.com/archives/1987/">http://oneyicn.gobaiyi.com/archives/1987/</a>
#AutoIt3Wrapper_Res_Description=自动领取U.115红包与刷分程序,更新链接<a href="http://oneyicn.gobaiyi.com/archives/1987/">http://oneyicn.gobaiyi.com/archives/1987/</a>
#AutoIt3Wrapper_Res_Fileversion=0.0.0.6
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#AutoIt3Wrapper_Res_Icon_Add=TLB.ico
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Region AutoIt3Wrapper 预编译参数(常用参数)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer%  ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy=                       ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator=            ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check=         ;语法检查
;#AutoIt3Wrapper_Run_Before=         ;运行前
;#AutoIt3Wrapper_Run_After=         ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
 Au3 版本:
 脚本作者:
 Email:
 QQ/TM:
 脚本版本:
 脚本功能: 领取U.115红包与刷分程序,安全刷分,解决IE不是默认浏览器报错的BUG
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#NoTrayIcon
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
<a href="mailto:$TheIniFile=@ScriptDir">$TheIniFile=@ScriptDir</a> & "\u115.ini"
$TheKey='oneyicn.gobaiyi.com'
$user=''
$psword=''
If FileExists($TheIniFile) Then
 $user = IniRead($TheIniFile, "参数", "用户", "")
 $psword1 = IniRead($TheIniFile, "参数", "密码", "0")
 If $psword1<>'0' Then
  $psword1 = _RC4($psword1, $TheKey)
  $psword = BinaryToString($psword1)
 EndIf
Else
 _SetUp()
EndIf
 
If $user<>'' And $psword<>'0' Then
 _ToU_115()
Else
 _SetUp()
EndIf
 
Func _ToU_115()
 ConsoleWrite($user & @CRLF)
 ConsoleWrite($psword & @CRLF)
;~ $oIE = _IECreate ("<a href="http://u.115.com",0,0,1,0">http://u.115.com",0,0,1,0</a>)
$oIE = _IECreateEmbedded ()
 GUICreate("Embedded Web control Test", 1024, 600, (@DesktopWidth - 1024) / 2, (@DesktopHeight - 600) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
 $GUIActiveX = GUICtrlCreateObj ($oIE, 0,0, 1024, 600) 
 GUISetState()       ;Show GUI
 
_IENavigate ($oIE, "<a href="http://u.115.com">http://u.115.com</a>")
 
 $oDoc = _IEDocGetObj ($oIE)
 
$oForm = _IEFormGetObjByName ($oIE, "lf")
 
;~ _IEPropertySet ($oIE, "toolbar", 0)
;~ _IEPropertySet ($oIE, "width", 1024)
;~ _IEPropertySet ($oIE, "height", 600)
;~ _IEPropertySet ($oIE, "resizable", 0)
;~ _IEAction ($oIE, "visible")
;~ $oForm = _IEFormGetObjByName ($oIE, "lf")
$oQuery = _IEFormElementGetObjByName ($oForm, "account")
_IEFormElementSetValue ($oQuery, $user)
$oQuery = _IEFormElementGetObjByName ($oForm, "passwd")
_IEFormElementSetValue ($oQuery, $psword)
_IEFormSubmit ($oForm)
_IELoadWait ($oIE)
$oFrame = _IEFrameGetObjByName ($oIE, "panel_iframe")
$oId = _IEGetObjById ($oFrame, "pick_storage")
ConsoleWrite(_IEPropertyGet($oId, "innertext") & @CRLF)
_IEAction ($oId, "click")
Sleep(5000)
 
;~ 退出
$oId = _IEGetObjById ($oIE, "my_logout")
_IEAction ($oId, "click")
;~ _IEQuit ($oIE)
GUIDelete()
Exit
EndFunc
 
Func _SetUp()
 #Region ### START Koda GUI section ### Form=Form1.kxf
 $Form1 = GUICreate("领取U.115红包与刷分参数设置", 325, 132, 331, 318)
 $Label1 = GUICtrlCreateLabel("请输入U.115的帐号", 16, 8, 105, 17)
 $Label2 = GUICtrlCreateLabel("请输入U.115的密码", 16, 40, 105, 17)
 $Input1 = GUICtrlCreateInput("", 136, 8, 177, 21)
 $Input2 = GUICtrlCreateInput("", 136, 40, 177, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
 $Label3 = GUICtrlCreateLabel("本程序密码加密保存，请放心使用,如需重新设置，删除u115.ini文件即可", 16, 104, 200, 25)
 $Label4 = GUICtrlCreateLabel("查看更新", 264, 104, 52, 17)
 GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
 GUICtrlSetColor(-1, 0x0000FF)
 GUICtrlSetCursor (-1, 0)
 $Button1 = GUICtrlCreateButton("确定", 16, 72, 97, 25)
 $Button2 = GUICtrlCreateButton("取消", 240, 72, 73, 25)
 GUISetState(@SW_SHOW)
 #EndRegion ### END Koda GUI section ###
 
 While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
 Case $GUI_EVENT_CLOSE
 Exit
 Case $Label4
  ShellExecute("<a href="http://oneyicn.gobaiyi.com/archives/1987/">http://oneyicn.gobaiyi.com/archives/1987/</a>")
 Case $Button1
  $user = GUICtrlRead($Input1)
  $psword = GUICtrlRead($Input2)
  $EncryptPs = _RC4($psword, $TheKey)
  $file = FileOpen($TheIniFile, 10)
  ; 检查打开的文件是否可写
  If $file = -1 Then
   MsgBox(0, "错误", "不能打开文件.")
   Exit
  EndIf
  If $user<>"" And $psword<>"" Then
    FileWriteLine($file, "[参数]" & @CRLF)
    FileWriteLine($file, "用户=" & $user& @CRLF)
    FileWriteLine($file, "密码=" & $EncryptPs)
    FileClose($file)
    GUIDelete ($Form1)
    Return 1
  Else
   MsgBox(4096,"出错了","请入正确的帐号跟密码")
  EndIf
 Case $Button2
  Exit
 EndSwitch
 WEnd
EndFunc
 
Func _SetUp1()
 $user = InputBox("领取U.115红包与刷分参数设置", "请输入U.115的帐号", "")
 $psword = InputBox("领取U.115红包与刷分参数设置", "请输入U.115的帐号", "",'*')
 $EncryptPs = _RC4($psword, $TheKey)
 $file = FileOpen($TheIniFile, 10)
 ; 检查打开的文件是否可写
 If $file = -1 Then
  MsgBox(0, "错误", "不能打开文件.")
  Exit
 EndIf
 
 FileWriteLine($file, "[参数]" & @CRLF)
 FileWriteLine($file, "用户=" & $user& @CRLF)
 FileWriteLine($file, "密码=" & $EncryptPs)
 
 FileClose($file)
 
EndFunc
 
;======================================================
;
; 函数名称:  _RC4
; 详细信息:  RC4编码
; 返回值 :  
; 作者:   Ward(Taiwan)
;
;======================================================
 
Func _RC4($Data, $Key)
 Local $Opcode = "0xC81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
 Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
 DllStructSetData($CodeBuffer, 1, $Opcode)
 
 Local $Buffer = DllStructCreate("byte[" & BinaryLen($Data) & "]")
 DllStructSetData($Buffer, 1, $Data)
 
 DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
             "ptr", DllStructGetPtr($Buffer), _
             "int", BinaryLen($Data), _
             "str", $Key, _
             "int", 0)
 
 Local $Ret = DllStructGetData($Buffer, 1)
 $Buffer = 0
 $CodeBuffer = 0
 Return $Ret
EndFunc