Код:
#include<IE.au3>
#include<array.au3>
_FileDeleteLine(@ScriptDir & "\proxy.txt", 1)
Func _FileDeleteLine($sFile, $iLine)
$hFile = FileOpen($sFile, 0)
If $hFile = -1 Then Return SetError(1, 0, 0)
$lFile = FileReadLine($hFile, 1)
$proxy = StringSplit($lFile, ":")
$sFileContent = ""
$aFileContent = StringSplit(StringStripCR(FileRead($hFile)), @LF)
FileClose($hFile)
$ie = _IECreate()
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)
TrayTip('Смена прокси c proxy.txt','Выбираем первый прокси', 5)
Sleep(5000)
MouseClick("left", 235, 60)
Sleep(1000)
MouseClick("left", 250, 400)
Sleep(1000)
MouseClick("left", 165, 168)
Sleep(1000)
MouseClick("left", 350, 540)
Sleep(1000)
MouseClick("left", 108, 386, 2)
Sleep(1000)
Send($proxy[1])
Sleep(1000)
MouseClick("left", 235, 386, 2)
Sleep(1000)
Send($proxy[2])
MouseClick("left", 268, 461)
Sleep(2000)
MouseClick("left", 215, 684)
Sleep(2000)
For $i = 1 To $aFileContent[0]
If $i <> $iLine Then $sFileContent &= $aFileContent[$i] & @CRLF
Next
$hFile = FileOpen($sFile, 2)
If $hFile = -1 Then Return SetError(2, 0, 0)
FileWrite($hFile, StringTrimRight($sFileContent, 2))
Return FileClose($hFile)
Send("!+{F4}")
EndFunc
Вот таким способом меняю прокси в браузере. Не пойму почему удаляет из файла proxy.txt сразу две строки, а не одну:( И вообще подправте меня, если что неправильно или по глупому сделано.