Jump to content
Sign in to follow this  
mads3n

Putting my $dag into my "InetGet"

Recommended Posts

Hi.. im almost finished with my autoit script..

in the top of my script i've placed a combobox:

$dag = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item
GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default

and in the bottom i've made this inetget to fetch the selected file from a server.

but i cant put the "$dag" into the url without getting an error :lmao:

heres the code where i try to put the $dag into the url

Case $msg = $oobutton
         InetGet("http://www.skjernhs.1go.dk/$dag & ".txt"", $dag & ".txt", 1, 0)
         sleep(2000)
         $open = FileOpen($dag & ".txt", 0)
         $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt"))
         GUICtrlDelete($txt)
        ; EDIT
         $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280)
         _EraseContentOfTxtFile($dag & ".txt")

Mads3n.dk

Share this post


Link to post
Share on other sites

InetGet("http://www.skjernhs.1go.dk/" & $dag & ".txt", $dag & ".txt", 1)

*edit

i was later then jdeb but atleast mine didnt have an error in it :lmao:

Edited by w0uter

My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites

thx guys.. ur the best ;)

--

edit.. hmm.. ok :lmao: this is wierd.. when i load the file it comes up with a file named 6.txt instead of the one i choose.. heres the full script.. can any1 see any reason why it doesnt load ex. lmandag.txt (if choosen)

btw just so to make sure lmandag.txt excists heres a link:

www.skjernhs.1go.dk/lektier/lmandag.txt

#include <GuiConstants.au3>


$mainwindow = GuiCreate("lmandag V.1.0 full", 400, 400)

$oobutton = GUICtrlCreateButton ( "Åben din personlige text!", 50, 5, 140, 60, 0x0300)

$Cancel_Btn = GUICtrlCreateButton ( "LUK", 10, 5, 40, 60, 0x0300)

$gembutton = GUICtrlCreateButton ( "GEM", 190, 5, 40, 60, 0x0300)

$dag = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item
GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default

$txt = GuiCtrlCreateEdit("TRYK PÅ: Åben din personlige text!", 10, 110, 380, 280)

; Function to empty a text file
; Author(s) : Groumphy
; Alias of FileOpen Mode 2
Func _EraseContentOfTxtFile($iFile)
; failure = -1
; success = File is empty
    Return FileOpen($iFile, 2)
    FileClose($iFile)
EndFunc

Func _FTPput($s_p_Host, $s_p_PathFile, $s_p_Acc, $s_p_Pwd, $s_p_Cd = '', $i_p_Check = 0, $s_p_Aftp = '')
    
; Declaring local variables.
    Local $i_p_Return
    
; Creating a random nummber to minimize the chance of writing to an existing file.
    Local $i_p_Random = Random(100000000, 999999999, 1)
    
; Creating the file.
    Local $h_p_CmdFile = FileOpen(@TempDir & "\FTPcmds" & $i_p_Random & ".txt", 1)
    
; Check if wildcards are used.
    If StringInStr($s_p_PathFile, "*") <> 0 Then Local $i_p_Check = 0
    
; Getting the path and the filename from $s_p_PathFile.
    Local $s_p_Path = StringTrimRight($s_p_PathFile, StringLen($s_p_PathFile) - StringInStr($s_p_PathFile, "\", 0, -1) + 1)
    Local $s_p_File = StringTrimLeft($s_p_PathFile, StringInStr($s_p_PathFile, "\", 0, -1))
    
; Create an FTP command file if the file is sucsesfully created.
    If $h_p_CmdFile <> -1 Then
        
    ; Writing the account and password.
        FileWriteLine($h_p_CmdFile, $s_p_Acc & @CRLF)
        FileWriteLine($h_p_CmdFile, $s_p_Pwd & @CRLF)
        
    ; Set the transfermode to binary
        FileWriteLine($h_p_CmdFile, "binary" & @CRLF)
        
    ; Additional FTP commands passed to the function are actioned here.
        If $s_p_Aftp <> '' Then FileWriteLine($h_p_CmdFile, $s_p_Aftp & @CRLF)
            
    ; Making the destination dir if it doesnot exist
        FileWriteLine($h_p_CmdFile, 'mkdir ' & $s_p_Cd & @CRLF)
        
    ; Set the destination dir if one is given. Else 'root' will be used.
        If $s_p_Cd <> '' Then FileWriteLine($h_p_CmdFile, "cd " & $s_p_Cd & @CRLF)
        
    ; Set the local directory and send the files.
        FileWriteLine($h_p_CmdFile, "lcd " & $s_p_Path & @CRLF)
        FileWriteLine($h_p_CmdFile, "mput " & $s_p_File & @CRLF)
        
    ; If $i_p_Check is set to 1 it will get the transferred file back to a check area so we can confirm it worked.
        If $i_p_Check = 1 Then
            FileWriteLine($h_p_CmdFile, "lcd " & @TempDir & @CRLF)
            FileWriteLine($h_p_CmdFile, "mget " & $s_p_File & @CRLF)
        EndIf
        
    ; Closes the FTP connecetion and exits the FTP program.
        FileWriteLine($h_p_CmdFile, "close" & @CRLF)
        FileWriteLine($h_p_CmdFile, "quit" & @CRLF)
        
    ; Closes the file.
        FileClose($h_p_CmdFile)
        
    EndIf
    
; Start FTP with the cmdfile to transfer the file(s) concerned.
    RunWait(@ComSpec & " /c " & 'ftp -v -i -s:' & @TempDir & "\FTPcmds" & $i_p_Random & ".txt " & $s_p_Host, "", @SW_HIDE)
    
; Setting the return value's.
    If $i_p_Check = 1 And Not FileExists(@TempDir & "\" & $s_p_File) Then
        $i_p_Return = -1
    ElseIf $i_p_Check = 1 And FileExists(@TempDir & "\" & $s_p_File) Then
        $i_p_Return = 1
    Else
        $i_p_Return = 0
    EndIf
    
; Delete the temp files.
    FileDelete(@TempDir & "\" & $s_p_File)
    FileDelete(@TempDir & "\FTPcmds" & $i_p_Random & ".txt")
    
; Return the returnvalue.
    Return $i_p_Return
    
EndFunc  ;==>_FTPput




; PROGRESS
GuiCtrlCreateLabel("Fremgang:", 10, 82)
$progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01)
GuiCtrlSetData(-1, 00)

;Show window/Make the window visible
GUISetState(@SW_SHOW)

While 1
 ;After every loop check if the user clicked something in the GUI window
   $msg = GUIGetMsg()

   Select
   
    ;Check if user clicked on the close button
      Case $msg = $GUI_EVENT_CLOSE
       ;Exit the script
         Exit
         
    ;Check if user clicked on the "OK" button
      Case $msg = $oobutton
         InetGet("http://www.skjernhs.1go.dk/lektier/" & $dag & ".txt", $dag & ".txt", 1, 0)
         sleep(2000)
         $open = FileOpen($dag & ".txt", 0)
         $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt"))
         GUICtrlDelete($txt)
        ; EDIT
         $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280)
         _EraseContentOfTxtFile($dag & ".txt")


          ;Check if user clicked on the "OK" button
              Case $msg = $gembutton
              $new = ControlGetText($dag & ".txt", "", "Edit1")
              FileWrite( $dag & ".txt", $new)
                GUICtrlDelete($progress)
              $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01)
              GuiCtrlSetData(-1, 50)
              sleep(500)
              _FTPput('195.245.210.174', $dag ".txt", 'ftp-skjernhs-1go', '******')
              MsgBox(64, "INFO", "Filen er nu opdateret")
              GuiCtrlSetData(-1, 100)
              sleep(1000)
              GuiCtrlSetData(-1, 00)

    ;Check if user clicked on the "CANCEL" button
      Case $msg = $Cancel_Btn
         Exit

   EndSelect

WEnd
Edited by mads3n

Mads3n.dk

Share this post


Link to post
Share on other sites

After a quick look I think that you need to use GUICtrlRead to determin which item out of the combo is selected.



Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Share this post


Link to post
Share on other sites

After a quick look I think that you need to use GUICtrlRead to determin which item out of the combo is selected.

ok.. how do i put that into all this code.. ? :lmao:

No need to respond, i got it ;) wohooo

thx m8

Edited by mads3n

Mads3n.dk

Share this post


Link to post
Share on other sites

ok.. how do i put that into all this code.. ? :lmao:

No need to respond, i got it ;) wohooo

thx m8

I have put GUICtrlRead in but there are at least 2 other problems

#include <GuiConstants.au3>


$mainwindow = GuiCreate("lmandag V.1.0 full", 400, 400)

$oobutton = GUICtrlCreateButton ( "Åben din personlige text!", 50, 5, 140, 60, 0x0300)

$Cancel_Btn = GUICtrlCreateButton ( "LUK", 10, 5, 40, 60, 0x0300)

$gembutton = GUICtrlCreateButton ( "GEM", 190, 5, 40, 60, 0x0300)

$dag1 = GUICtrlCreateCombo ("lmandag", 235, 5, 80, 90); create first item
GUICtrlSetData(-1,"ltirsdag|lonsdag|ltorsdag|lfredag"); add other item snd set a new default

$txt = GuiCtrlCreateEdit("TRYK PÅ: Åben din personlige text!", 10, 110, 380, 280)

; Function to empty a text file
; Author(s) : Groumphy
; Alias of FileOpen Mode 2
Func _EraseContentOfTxtFile($iFile)
; failure = -1
; success = File is empty
    Return FileOpen($iFile, 2)
    FileClose($iFile)
EndFunc

Func _FTPput($s_p_Host, $s_p_PathFile, $s_p_Acc, $s_p_Pwd, $s_p_Cd = '', $i_p_Check = 0, $s_p_Aftp = '')
    
; Declaring local variables.
    Local $i_p_Return
    
; Creating a random nummber to minimize the chance of writing to an existing file.
    Local $i_p_Random = Random(100000000, 999999999, 1)
    
; Creating the file.
    Local $h_p_CmdFile = FileOpen(@TempDir & "\FTPcmds" & $i_p_Random & ".txt", 1)
    
; Check if wildcards are used.
    If StringInStr($s_p_PathFile, "*") <> 0 Then Local $i_p_Check = 0
    
; Getting the path and the filename from $s_p_PathFile.
    Local $s_p_Path = StringTrimRight($s_p_PathFile, StringLen($s_p_PathFile) - StringInStr($s_p_PathFile, "\", 0, -1) + 1)
    Local $s_p_File = StringTrimLeft($s_p_PathFile, StringInStr($s_p_PathFile, "\", 0, -1))
    
; Create an FTP command file if the file is sucsesfully created.
    If $h_p_CmdFile <> -1 Then
        
   ; Writing the account and password.
        FileWriteLine($h_p_CmdFile, $s_p_Acc & @CRLF)
        FileWriteLine($h_p_CmdFile, $s_p_Pwd & @CRLF)
        
   ; Set the transfermode to binary
        FileWriteLine($h_p_CmdFile, "binary" & @CRLF)
        
   ; Additional FTP commands passed to the function are actioned here.
        If $s_p_Aftp <> '' Then FileWriteLine($h_p_CmdFile, $s_p_Aftp & @CRLF)
            
   ; Making the destination dir if it doesnot exist
        FileWriteLine($h_p_CmdFile, 'mkdir ' & $s_p_Cd & @CRLF)
        
   ; Set the destination dir if one is given. Else 'root' will be used.
        If $s_p_Cd <> '' Then FileWriteLine($h_p_CmdFile, "cd " & $s_p_Cd & @CRLF)
        
   ; Set the local directory and send the files.
        FileWriteLine($h_p_CmdFile, "lcd " & $s_p_Path & @CRLF)
        FileWriteLine($h_p_CmdFile, "mput " & $s_p_File & @CRLF)
        
   ; If $i_p_Check is set to 1 it will get the transferred file back to a check area so we can confirm it worked.
        If $i_p_Check = 1 Then
            FileWriteLine($h_p_CmdFile, "lcd " & @TempDir & @CRLF)
            FileWriteLine($h_p_CmdFile, "mget " & $s_p_File & @CRLF)
        EndIf
        
   ; Closes the FTP connecetion and exits the FTP program.
        FileWriteLine($h_p_CmdFile, "close" & @CRLF)
        FileWriteLine($h_p_CmdFile, "quit" & @CRLF)
        
   ; Closes the file.
        FileClose($h_p_CmdFile)
        
    EndIf
    
; Start FTP with the cmdfile to transfer the file(s) concerned.
    RunWait(@ComSpec & " /c " & 'ftp -v -i -s:' & @TempDir & "\FTPcmds" & $i_p_Random & ".txt " & $s_p_Host, "", @SW_HIDE)
    
; Setting the return value's.
    If $i_p_Check = 1 And Not FileExists(@TempDir & "\" & $s_p_File) Then
        $i_p_Return = -1
    ElseIf $i_p_Check = 1 And FileExists(@TempDir & "\" & $s_p_File) Then
        $i_p_Return = 1
    Else
        $i_p_Return = 0
    EndIf
    
; Delete the temp files.
    FileDelete(@TempDir & "\" & $s_p_File)
    FileDelete(@TempDir & "\FTPcmds" & $i_p_Random & ".txt")
    
; Return the returnvalue.
    Return $i_p_Return
    
EndFunc ;==>_FTPput




; PROGRESS
GuiCtrlCreateLabel("Fremgang:", 10, 82)
$progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01)
GuiCtrlSetData(-1, 00)

;Show window/Make the window visible
GUISetState(@SW_SHOW)

While 1
;After every loop check if the user clicked something in the GUI window
   $msg = GUIGetMsg()

   Select
   
   ;Check if user clicked on the close button
      Case $msg = $GUI_EVENT_CLOSE
      ;Exit the script
         Exit
         
   ;Check if user clicked on the "OK" button
Case $msg = $oobutton
    $dag=GUICtrlRead($dag1)
          InetGet("http://www.skjernhs.1go.dk/lektier/" & $dag & ".txt", $dag & ".txt", 1, 0)
         sleep(2000)
         $open = FileOpen($dag & ".txt", 0)
         $File_Read = FileRead($dag & ".txt", FileGetSize($dag & ".txt"))
         GUICtrlDelete($txt)
        ; EDIT
         $txt = GuiCtrlCreateEdit($File_Read, 10, 110, 380, 280)
          _EraseContentOfTxtFile($dag & ".txt")


         ;Check if user clicked on the "OK" button
      Case $msg = $gembutton
          $dag=GUICtrlRead($dag1)
              $new = ControlGetText($dag & ".txt", "", "Edit1")
               FileWrite( $dag & ".txt", $new)
                GUICtrlDelete($progress)
              $progress = GuiCtrlCreateProgress(70, 80, 320, 20, 0x01)
              GuiCtrlSetData(-1, 50)
              sleep(500)
              _FTPput('195.245.210.174', $dag ".txt", 'ftp-skjernhs-1go', '******')
              MsgBox(64, "INFO", "Filen er nu opdateret")
              GuiCtrlSetData(-1, 100)
               sleep(1000)
              GuiCtrlSetData(-1, 00)

   ;Check if user clicked on the "CANCEL" button
      Case $msg = $Cancel_Btn
         Exit

   EndSelect

WEnd

They are on lines 39 and 148 but I do not have the time to fix them.



Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Share this post


Link to post
Share on other sites

ok.. i've fixed the 148 by putting an "&" in.. but it wont upload to the ftp-server.. :lmao:

I do not know anything about FTP but there is a UDF by w0uter Here I hope it helps.


Time you enjoyed wasting is not wasted time ......T.S. Elliot
Suspense is worse than disappointment................Robert Burns
God help the man who won't help himself, because no-one else will...........My Grandmother

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...