Jump to content

ruslanas402

Active Members
  • Posts

    20
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

ruslanas402's Achievements

Seeker

Seeker (1/7)

0

Reputation

  1. So far I released that if I use Default mode at least I come up with required page, but when I post the previous image doesn't save up. $aRead = _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], Default, "name:file1", $sPic, "[RETURN_ARRAY]") $aURL = _WinHttpCrackUrl($aRead[2]) $aRead = _WinHttpSimpleFormFill($hConnect, Default, "index:1", "name:view_photo", True, "[RETURN_ARRAY]") ;<-- So far I released that if I use Default mode at least I come up with required page, but when I post the previous image doesn't save up. $aURL = _WinHttpCrackUrl($aRead[2]) $aRead = _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], Default, "name:file1", $sPic, "[RETURN_ARRAY]") $aURL = _WinHttpCrackUrl($aRead[2]) WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], "index:1", "name:view_post", True) If anybody knows why is it? or at least if it's at least possible, tell me please. I'd be very appreciate it. Regards
  2. Okay boss.
  3. Anyone please
  4. Hello there, could anyone advanced in WinHTTP tell me what am I missing please? #include "WinHttp.au3" #include <Array.au3> $sPic = "C:\Users\Source\Pictures\Capturex1.PNG" $sPic2 = "C:\Users\Source\Pictures\Capturex2.PNG" $hOpen = _WinHttpOpen() $hConnect = _WinHttpConnect($hOpen, "https://m.facebook.com/") $sRead = _WinHttpSimpleFormFill($hConnect, "login.php", "login_form", "name:email", "login@mail.com", "name:pass", "pasword") $aRead = _WinHttpSimpleFormFill($hConnect, "/groups/1111111111111", "index:1", "name:view_photo", True, "[RETURN_ARRAY]") ;<-- 11111... <-- Group ID $aURL = _WinHttpCrackUrl($aRead[2]) $aRead = _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], Default, "name:file1", $sPic, "[RETURN_ARRAY]") $aURL = _WinHttpCrackUrl($aRead[2]) $aRead = _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], "index:0", "name:view_photo", True, "[RETURN_ARRAY]") ;<-- Suppose to press on Add More photos isn't? $aURL = _WinHttpCrackUrl($aRead[2]) $aRead = _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], Default, "name:file1", $sPic2, "[RETURN_ARRAY]") ; <-- also submit second photo? $aURL = _WinHttpCrackUrl($aRead[2]) _WinHttpSimpleFormFill($hConnect, $aURL[6] & $aURL[7], Default, "name:view_post", True) _WinHttpCloseHandle($hConnect) _WinHttpCloseHandle($hOpen) I'm trying to post multi photos in group, but no luck. Here is idea I came from:
  5. Nice mate, now I'll be able to manage how to apply to my code !
  6. it must to be some easier solution without hotkeys, I haven't ever seen any program where you have to press special key kombination to determine the program already have red it whole day, maybe I still miss something.
  7. Hello AutoIt fans, could anyone help me to get back on track please? So I managed to interrupt my function by pressing "Func two" button. But how can I terminate fuction by pressing "X" in GUI ? How can I assign "X" button to "Func two" if that's possible. Regards Ruslanas402 #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $fInterrupt = 0 $hGUI = GUICreate("Test", 500, 500) $hButton_1 = GUICtrlCreateButton("Func One", 10, 10, 80, 30) $hButton_2 = GUICtrlCreateButton("Func Two", 10, 50, 80, 30) GUISetState() GUIRegisterMsg($WM_COMMAND, "_WM_COMMAND") Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam) If BitAND($wParam, 0x0000FFFF) = $hButton_2 Then $fInterrupt = 1 Return $GUI_RUNDEFMSG EndFunc While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $hButton_1 _Func_1() Case $hButton_2 Exit EndSwitch WEnd Func _Func_1() $fInterrupt = 0 For $i = 1 To 10 ConsoleWrite("-Func 1 Running" & @CRLF) If _Interrupt_Sleep(5000) Then Switch $fInterrupt Case 1 ConsoleWrite("!Func 1 interrrupted" & @CRLF) EndSwitch Return EndIf Next ConsoleWrite(">Func 1 Ended" & @CRLF) EndFunc Func _Interrupt_Sleep($iDelay) Local $iBegin = TimerInit() Do Sleep(10) If $fInterrupt Then Return True EndIf Until TimerDiff($iBegin) > $iDelay Return False EndFunc
  8. So useful I've been making same script for weeks, just without winHttp Could you tell, trancexx where can I input variable to write post as well? Thanks in advance.
  9. Greeting, so I've been trying to come up with solution, but no luck. Despite I tried to automate upload function, I released that it freezes after "Choose File to Upload" window appears.. #include <IE.au3> ;#include <_Dbug.au3> Global $oIE = _IECreate("http://tinypic.com/", 1) Global $upload2 = _IEGetObjById($oIE, "the_file") _IEAction($upload2, "click") ;Sleep(1000) $hWnd = WinGetHandle("Choose File to Upload") MsgBox(0, "", $hWnd) Have anybody faced this situation? btw: srry for the advertise Besides it's no matter which site I'm trying to do this it's all the same.
  10. You amazing man. Thank you so much, it does exactly as I wanted I knew it should use two dimensional arays. Just couldn't figure out how to combine them. Sorry for internet connection
  11. Nothing happens I think I should make variables $actualdata and $actualdata2 to 2D dimensional arrays, but HOW:? So far my code: #include <String.au3> #include <IE.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 700, 500, 192, 124) $Button1 = GUICtrlCreateButton("View", 576, 24, 89, 41) Global $oIE = _IECreate("https://www.youtube.com/playlist?list=PL4Jcq5zn02jKpjX0nqI1_fS7mEEb5tw6z", 1, 1, 0) Sleep(1000) Global $sHTML = _IEDocReadHTML($oIE) $FirstChunks = _StringBetween($sHTML, 'pl-video-title-link yt-uix-tile-link yt-uix-sessionlink', '<div class="pl-video-owner') Global $Checkbox1[200] $x = 16 $y = 0 For $a In $FirstChunks $actualdata = _StringBetween($a, '">', '</a>') $actualdata2 = _StringBetween($a, 'href="', '&amp;') $Checkbox1[$a] = GUICtrlCreateCheckbox($actualdata[0], 24, $x, 500, 17) $x = $x + 20 $y = $y + 1 Next ReDim $Checkbox1[$y-1] GUISetState(@SW_SHOW) Sleep(1000) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch ; check whether a button is pressed For $x = 0 to UBound($Checkbox1)-1 If $nMsg = $Checkbox1[$x] Then ; do what you want to do for Button pressed ConsoleWrite("www.youtube.com/" & $actualdata2[$x]&@crlf) EndIf next WEnd Try yourself mate, playlist isn't private
  12. I'm giving up. My final best code $Form1 = GUICreate("Form1", 700, 500, 192, 124) $Button1 = GUICtrlCreateButton("View", 576, 24, 89, 41) Global $oIE = _IECreate("https://www.youtube.com/playlist?list=PL4Jcq5zn02jKpjX0nqI1_fS7mEEb5tw6z", 1, 1, 0) Sleep(1000) Global $sHTML = _IEDocReadHTML($oIE) $FirstChunks = _StringBetween($sHTML, 'pl-video-title-link yt-uix-tile-link yt-uix-sessionlink', '<div class="pl-video-owner') Global $Checkbox1[200] $x = 16 $y = 0 For $a In $FirstChunks $actualdata = _StringBetween($a, '">', '</a>') $actualdata2 = _StringBetween($a, 'href="', '&amp;') $Checkbox1[$a] = GUICtrlCreateCheckbox($actualdata[0], 24, $x, 500, 17) $x = $x + 20 $y = $y + 1 Next ReDim $Checkbox1[$y-1] GUISetState(@SW_SHOW) Sleep(1000) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch ; check whether a button is pressed For $x = 0 to UBound($Checkbox1)-1 If $nMsg = $Checkbox1[$x] Then ; do what you want to do for Button pressed _IECreate("www.youtube.com/" & $actualdata2) EndIf next WEnd But instead of opening selected boxes, it just opens "youtube.com" website constantly
  13. Hi Jos, I'm not just thought nobody will answer. Thx for advice, but still I'm in dark. $FirstChunks = _StringBetween($sHTML, 'pl-video-title-link yt-uix-tile-link yt-uix-sessionlink', '<div class="pl-video-owner') Global $Checkbox1[100] $x = 16 $a = 0 For $a In $FirstChunks $actualdata = _StringBetween($a, '">', '</a>') ;$actualdata2 = _StringBetween($a, 'href="', '&amp;') $Checkbox1[$a] = GUICtrlCreateCheckbox($actualdata[0], 24, $x, 500, 17) $x = $x + 20 $a = $a + 1 Next Am I going to right direction? I didn't uderstand what you meant by saying "Message loop check for any of these handles"
  14. I think I'm not the first person with this issue, it has to be solved somewhere already. Just give me some links please
×
×
  • Create New...