świetny pomysł z tym tematem, może ktoś wrzuci coś ciekawszego. Ja od siebie wrzucam kod na wrzucanie pastebin:
SKRYPT - Dodawanie do pastebin:
#include <ButtonConstants.au3>#include <EditConstants.au3>#include <GUIConstantsEx.au3>#include <WindowsConstants.au3>#include <ie.au3>#include <GuiScrollBars.au3>#Region ### START Koda GUI section ### Form=$Form1 = GUICreate("Form1", 955, 588, 192, 124)$Edit1 = GUICtrlCreateEdit("", 16, 48, 801, 153)GUICtrlSetData(-1, "Sprawdź czy działa")$Button1 = GUICtrlCreateButton("Dodaj swoj opis na pastebin.com", 40, 208, 185, 41)$Input1 = GUICtrlCreateInput("http:// pierwszy link", 232, 208, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input2 = GUICtrlCreateInput("http:// drugi link", 232, 232, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input3 = GUICtrlCreateInput("http:// trzeci link", 232, 256, 585, 21)GUICtrlSetBkColor(-1, 0xD7E4F2)$Input4 = GUICtrlCreateInput("Captcha",416, 368, 169, 21,BitOR($ES_CENTER,$ES_MULTILINE))$oie = _IECreateEmbedded()GUICtrlCreateObj($oie,20,280,390,390)GUISetState(@SW_SHOW)#EndRegion ### END Koda GUI section ###_IENavigate($oie,'http://pastebin.com/')While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $poleedit = _IEGetObjByName($oie,'paste_code') _IEFormElementSetValue($poleedit,GuiCtrlRead($Edit1)) _IELoadWait($oie)$size = WinGetPos("[active]")WinMove("[active]",'','1','1')MouseMove(253,326)MouseWheel ( "down",30 )Sleep(700)MouseClick("left")_IELoadWait($oie)$lol = _IEPropertyGet($oie, "locationurl")GuiCtrlsetData($input1,$lol)GuiCtrlsetData($input2,$lol)GuiCtrlsetData($input3,$lol) EndSwitchWEnd