[Autoit] Import Roboform

hướng dẫn :

cài autoit v3 sau đó run soft
Dòng 1 điền tên Identify
Dòng 2 điền info theo định dạng F.name|L.name|Address|City|State|Zipcode|Phone|Mai l

Creat auto sẽ điền info vào Roboform.

[php]#cs —————————————————————————-

AutoIt Version: 3.3.6.1
Author:         myName

Script Function:
Template AutoIt script.

#ce —————————————————————————-

; Script Start – Add your code below here

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Add info – i-l-u ", 469, 243, 192, 124)
GUISetFont(10, 400, 0, "Arial")
$Group1 = GUICtrlCreateGroup("", 8, 8, 449, 129)
$Label1 = GUICtrlCreateLabel("Nhập tên Identify cần tạo", 48, 24, 187, 22)
$linkip1 = GUICtrlCreateInput("", 16, 56, 257, 24)
$addip = GUICtrlCreateInput("", 16, 96, 257, 24)
$add = GUICtrlCreateButton("Add from Clipboard", 288, 56, 153, 65, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 8, 144, 449, 89)
$Label2 = GUICtrlCreateLabel("Định Dạng:F.name|L.name|Address|City|State|Zipcode|Phone|Mail", 32, 160, 388, 24)
$create = GUICtrlCreateButton("Create", 104, 192, 217, 33, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $autocheck = 0
Global $linkadd
Global $email = "[email protected]"
Global $robo = @MyDocumentsDir&"\My RoboForm Data\Default Profile"
Global $lstname = @ScriptDir&"\LstName.txt"
Global $ping = 1
Global $linkip,$cc
Global $ipcheck, $picheck = “, $sockinfo, $rev, $Infomation
Global $iCity, $iState, $iZipcode, $iLastName, $Country
Global $i, $Infomation, $DataInfo = “
Global $Char[97] = [96, ‚ O_‘, ‚!O^‘, ‚"O]‘, ‚#O\‘, ‚$O[‚, ‚%OZ‘, ‚&OY‘, "’OX", ‚(OW‘, ‚)OV‘, ‚*OU‘, ‚+OT‘, ‚,OS‘, ‚-OR‘, ‚.OQ‘, ‚/OP‘, ‚0OO‘, ‚1ON‘, ‚2OM‘, ‚3OL‘, ‚4OK‘, ‚5OJ‘, ‚6OI‘, ‚7OH‘, ‚8OG‘, ‚9OF‘, ‚:OE‘, ‚;OD‘, ‚<OC‘, ‚=OB‘, ‚>OA‘, ‚?O@‘, ‚@O~‘, ‚AO~~‘, ‚BO~}‘, ‚CO~|‘, ‚DO~{‚, ‚EO~z‘, ‚FO~y‘, ‚GO~x‘, ‚HO~w‘, ‚IO~v‘, ‚JO~u‘, ‚KO~t‘, ‚LO~s‘, ‚MO~r‘, ‚NO~q‘, ‚OO~p‘, ‚PO~o‘, ‚QO~n‘, ‚RO~m‘, ‚SO~l‘, ‚TO~k‘, ‚UO~j‘, ‚VO~i‘, ‚WO~h‘, ‚XO~g‘, ‚YO~f‘, ‚ZO~e‘, ‚[O~d‘, ‚\O~c‘, ‚]O~b‘, ‚^O~a‘, ‚_O~`‘, ‚`O~_‘, ‚aO~^‘, ‚bO~]‘, ‚cO~\‘, ‚dO~[‚, ‚eO~Z‘, ‚fO~Y‘, ‚gO~X‘, ‚hO~W‘, ‚iO~V‘, ‚jO~U‘, ‚kO~T‘, ‚lO~S‘, ‚mO~R‘, ’nO~Q‘, ‚oO~P‘, ‚pO~O‘, ‚qO~N‘, ‚rO~M‘, ’sO~L‘, ‚tO~K‘, ‚uO~J‘, ‚vO~I‘, ‚wO~H‘, ‚xO~G‘, ‚yO~F‘, ‚zO~E‘, ‚{O~D‘, ‚|O~C‘, ‚}O~B‘, ‚~O~A‘, ‚O~@‘]
Global $http = ObjCreate(‚winhttp.winhttprequest.5.1′)
Global $a,$b,$i,$in

While 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
Exit
case $add
GUICtrlSetData($addip,ClipGet() )
If Not StringInStr(GUICtrlRead($ADDIP),’|‘) Then
MsgBox(64,“,’Wrong Format‘)

EndIf
$cc = StringSplit(GUICtrlRead($ADDIP),’|‘)
If Not GUICtrlRead($linkip1) Then
MsgBox(64,“,’chưa nhập tên identify‘)
Sleep(1000)
EndIf
Case $create

If $robo Then
If IsArray($cc) Then
Roboform($robo, $cc)
Else
MsgBox(64,“,‘ Chưa có info để tạo Roboform‘)
EndIf
Else
MsgBox(64, ‚Information‘, ‚Chưa chọn tập tin Roboform !!!‘)
EndIf

EndSwitch

WEnd

Func Roboform($DirectRoboform, $InfoArray)

Local $FileName = $DirectRoboform&’\’&guictrlread($linkip1)&‘.rft‘
Local $title, $sex, $data = “
Local $age = Random(25, 55, 1)
Local $brtday = Random(1, 30, 1)
Local $brtmoth = "12"
Local $DataRobo = ‚=OPTION= "Use for Form Filling" = "+";’& _
‚=OPTION= "World Regions" = "United States";’& _
‚Person## = "Main";’& _
‚Business## = "Main";’& _
‚Location## = "Main";’& _
‚Credit Card## = "Main";’& _
‚Bank Account## = "Main";’& _
‚Default Password## = "Main";’&@CRLF
If Random(0, 1, 1) Then
$sex = ‚Male‘

$title = ‚Mr‘
Else
$sex = ‚Female‘

$title = ‚Ms‘
EndIf

$DataRobo &=            ‚Title      = "’&$title&’";’& _
‚First Name = "’&$InfoArray[1]&’";’& _
‚Middle Initial = "";’& _
‚Last Name = "’&$InfoArray[3]&’";’& _
‚Phone = "’&$InfoArray[7]&’";’& _
‚Home Phone = "’&$InfoArray[7]&’";’& _
‚Work Phone = "’&$InfoArray[7]&’";’& _
‚Cell Phone = "’&$InfoArray[7]&’";’& _
‚Fax Phone = "’&$InfoArray[7]&’";’& @CRLF

$DataRobo &=     ‚Sex = "";’& _
‚Sex = "’&$sex&’";’& _
‚Age = "’&$age&’";’& _
‚Birth Month = "12";’& _
‚Birth Day = "’&$brtday&’";’& _
‚Birth Year = "’&@YEAR-$age&’";’& _
‚Address Line 1 = "’&$InfoArray[4]&’";’& _
‚City = "’&$InfoArray[5]&’";’& _
‚State Or Province = "’&$InfoArray[6]&’";’& _
‚Zip Or PostCode = "’&$InfoArray[7]&’";’& _
‚County = "United States";’& _
‚Card Number = "’&$InfoArray[7]&’";’& _
‚Card Type = "’&$InfoArray[7]&’";’& _
‚CardHolder Name = "’&$InfoArray[7]&’";’& _
‚Card Expires Month = "’&$InfoArray[7]&’";’& _
‚Card Expires Year = "’&$InfoArray[7]&’";’& _
‚Card Validation Code = "000";’& _
‚"IPAddress" = "" MULTILINE;‘

$DataRobo = StringReplace($DataRobo, @CRLF, “)
For $x = 1 To StringLen($DataRobo)
For $y = 1 To $Char[0]
If StringMid($DataRobo, $x, 1) == StringLeft($Char[$y], 1) Then
$data &= StringTrimLeft($Char[$y], 1)
ExitLoop
EndIf
Next
Next
$data = ‚@PROTECTED@’&@CRLF&$data&@CRLF

FileDelete($FileName)
FileWrite($FileName, $data)

MsgBox(64,“,’Completed….‘)

EndFunc

[/php]