PRO | 39dll: Dateien herunterladen? oO

  • PRO | 39dll: Dateien herunterladen? oO

    Hy!
    Also, ich hab da eine Frage:
    Ist es mit der 39dll, oder mit einer anderen DLL möglich, Dateien aus dem I-Net herunterzuladen?
    Die SuFu hab ich genutzt, die hat mir aber keine Antwort auf meine Frage geliefert.
    Also ich meinte das i-wie so:

    GML-Quellcode

    1. /* Das ist nur ein Beispiel */
    2. file_download("http://domain.de/files/bla.txt","C:\Downloads")


    EDIT: Was ich will ist folgendes:
    Ein Patchsystem für das Spiel, das im Ordner des Games ist.
    Wenn ich drauf klicke soll folgendes passieren:

    GML-Quellcode

    1. file_delete("game.exe");
    2. file_download("http://bla.de/game.exe",working_directory+"\game.exe");
    3. execute_shell(working_directory+"\game.exe",0);


    EDIT2: Hä? Warum hat das GML 'Fenster' denn so komische Farben!? oO

    Danke schon mal! :)

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von fabse64 ()

  • Dieses script war bei der 39dll dabei:


    Spoiler anzeigen

    GML-Quellcode

    1. /*
    2. argument0 = url to download from
    3. argument1 = local file to save as
    4. returns the error code from the server. 200 is a succesful download.
    6. NOTE: urls with usernames and passwords do not work.
    7. */
    8. var server, file, i, port, tcp, endloop, url, error;
    9. server = "";
    10. file = "/"
    11. port = 80;
    12. i = 0;
    13. error = 200;
    15. if(string_pos("http://", argument0) == 1)argument0 = string_delete(argument0, 1,7)
    16. //get file part of url
    17. i = string_pos("/", argument0);
    18. if(i)
    19. {
    20. file = string_copy(argument0, i, string_length(argument0)-i+1);
    21. argument0 = string_delete(argument0, i, string_length(file));
    22. }
    23. //get port part
    24. i = string_pos(":", argument0);
    25. if(i)
    26. {
    27. port = real(string_copy(argument0, 1, i-1));
    28. argument0 = string_delete(argument0, 1, i);
    29. }
    30. //get server part
    31. server = argument0;
    34. //the code above interpretes the url into a server variable, file variable and port.
    36. tcp = tcpconnect(server, port, 0);
    37. if(!tcp)return false;
    38. setformat(tcp, 1, chr(13) + chr(10)); //set format to text mode to receive one line at a time.
    39. //send get request
    40. clearbuffer();
    41. writechars("GET " + file+ " HTTP/1.1" + chr(13) + chr(10));
    42. writechars("Host: " + server + chr(13) + chr(10));
    43. writechars("Connection: close"+chr(13) + chr(10));
    44. writechars("Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/vnd.ms-xpsdocument, application/x-ms-xbap, application/x-ms-application, application/x-alambik-script, application/x-alambik-alamgram-link, */*"+chr(13)+chr(10));
    45. writechars("Accept-Language: en-us"+chr(13) + chr(10));
    46. writechars("User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; InfoPath.1; .NET CLR 2.0.50727; .NET CLR 1.1.4322)"+chr(13) + chr(10));
    47. sendmessage(tcp);
    48. //receive file header
    50. //interpret header for any errors.
    51. endloop = false;
    52. while(!endloop)
    53. {
    54. receivemessage(tcp); //receive one line
    55. i = readsep(" "); //read first word
    56. switch(i)
    57. {
    58. //check http error code
    59. case "HTTP/1.1":
    60. case "HTTP/1.0":
    61. error = real(readsep(" "));
    62. if(error != 200 && error != 301)
    63. {
    64. closesocket(tcp);
    65. return error;
    66. }
    67. break;
    68. //if page moved than locate new page and download from it.
    69. case "Location:":
    70. if(error == 301)
    71. {
    72. closesocket(tcp);
    73. url = readsep(chr(13) + chr(10));
    74. return downloadfile(url,argument1);
    75. }
    76. break;
    77. //if blank line (end of header) then exit loop
    78. case "":
    79. endloop = true
    80. break;
    81. }
    82. }
    83. setformat(tcp, 2); //turn off all formatting so we can receive file data.
    84. if(file_exists(argument1))file_delete(argument1);
    85. file = fileopen(argument1, 1);
    86. //start receiving file
    88. while(receivemessage(tcp, 50000) > 0) //receive 50000 bytes
    89. {
    90. filewrite(file); //write file chunk to file.
    91. }
    92. closesocket(tcp);
    93. fileclose(file);
    94. return 200;
    Alles anzeigen

    "Is this one sloshing?"
    Four words you don't want to hear when you pick up a coffin...

  • Benutzer online 1

    1 Besucher