VBAでwsock32を利用したFTPクライアントプログラムの作成方法

前へ 次へ
このQ&Aのポイント
  • VBAでwsock32を使ったFTPクライアントプログラムの作成方法を解説します。
  • 接続後にrecv関数を使用する際の問題や、send関数での文字列やタイミングの設定方法についても説明します。
  • FTPサーバーへの接続や認証までの手順を解説し、ファイル取得についての基本的な理解を提供します。
回答を見る
  • ベストアンサー

wsock32を利用したFTPクライアントプログラム

VBAでwsock32を利用したFTPクライアントプログラムを作成中です。 ソケット作成後FTPサーバーにポート21で接続まではできました。 接続後にrecv関数をステップインで実行すると 「220 myserver FTP server (Version ***) ready.」 が返ってきます。 しかし、接続してrecv関数を実行する処理を実行すると 何もrecv関数で返り値を取得できません。 どうすればステップイン実行をしない場合でも正しく返り値を取得できますか？ その後「USER username」をsend関数で送ろうとしていますが、うまくいきません。send関数で送る文字列やタイミングを教えてください。 FTPサーバーに接続->認証->ファイル取得を行いたいのですがまず認証までを解決したいです。よろしくお願いします。 以下コード抜粋---------------------------------------------- 'WinSock初期化 ret = WSAStartup(&H101, mwsad) 'ポート指定 port = 21 'ホスト名解決 phostent = gethostbyname("myserver") 'Socket準備 msocket = socket(AF_INET, SOCK_STREAM, 0) 'ポインタからHostEnt構造体設定 Call MoveMemory(lhostent, ByVal phostent, Len(lhostent)) Call MoveMemory(lAddrList, ByVal lhostent.h_addr_list, 4) Call MoveMemory(lSinAddr, ByVal lAddrList, lhostent.h_length) 'sockaddr構造体設定 msockaddr.sin_family = AF_INET msockaddr.sin_port = htons(port) msockaddr.sin_addr = lSinAddr msockaddr.sin_zero = String$(8, 0) 'Connect ret = connect(msocket, msockaddr, Len(msockaddr)) 'WSAAsyncSelect ret = WSAAsyncSelect(msocket, hwnd, WM_USER, FD_READ Or FD_CLOSE Or FD_CONNECT Or FD_WRITE Or FD_ACCEPT) 'recv ret = recv(msocket, buf, Len(buf), 0) bufはString * 1024で定義しています 'send lenbuf = Len("USER username") buf() as byte = StrConv(strCommand, vbFromUnicode) ret = send(msocket, buf(0), lenbuf, 0)

質問者が選んだベストアンサー

  • ベストアンサー
  • nda23
  • ベストアンサー率54% (777/1415)
回答No.1

先ず、VBAからWindowsAPIを呼び出す時の感覚ですが、必ずANSIに変換 されますので、StrConv(strCommand, vbFromUnicode) のような処置は 不要です。やるならMultiByteToWideCharを使うべきでしょう。以下の ように文字用とバイナリ用の２個を定義する方が分かり易い。 Declare Function sendA Lib "WS2_32" Alias "send" _ (ByVal S As Long, ByVal B As String, ～ Declare Function sendB Lib "WS2_32" Alias "send" _ (ByVal S As Long, ByRef B As Byte, ～ また、ご存知と思いますが、送信バイト数はAPIのlstrlenを使うべき です。 http://msdn.microsoft.com/ja-jp/library/cc410906.aspx ★DLL内の実名は"lstrlenA"です。 次にFTPは基本的に制御ラインではサーバ側の応答はLFで終わります。 よって、コマンド送信→応答受信（LF検出まで）を１往復と考えて 差し支えありません。つまり、1バイトずつの受信を行い、LFを検出 した所で、受信処理を抜けるような方法を取るべきです。 FTPの制御ラインのサーバ応答は必ず数字3桁+空白1桁なので、先頭の 1桁をチェックし、次を続けるかどうかを判断します。 "1":コマンドを受理した。次に結果の応答がある。 "2":コマンドを受理した。正常に処理された。 "3":コマンドを受理した。次のコマンドを送信せよ。 "4"、"5":コマンドを受理した。成功しなかった。 "USER"コマンドを送信すると、必ず"3"（場合によっては"4"、"5"）が 返ります。これは対になるコマンド（認証ではPASS）の送信を催促 するということです。"4"、"5"が返る場合はユーザ名が不許可なので、 PASSコマンドを送っても意味がありません。 尚、WinSockを扱う（定義する）ところを標準モジュールにするのは ヨロシクありません。WinSock内にデータがあり、通信障害の程度に よってはデータが破壊され、修復不可能になることがあります。 標準モジュールは静的なプログラム領域で、ここにロードされたDLLは プロセス終了までリフレッシュできません。 これを回避するため、クラスモジュールに定義し、インスタンスを 明示的に扱うことで解決します。クラスモジュールはインスタンスを 解放する際、プログラム領域も解放するので、ロードされたDLLも解放 されます。再度、インスタンス化することでリフレッシュされます。 先は長いので頑張ってください。

vijareal
質問者

お礼

回答ありがとうございます。 進捗しだいでまた質問するかもしれませんが いったん完了にします。 先は長そうですが、がんばります。 ありがとうございました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 配列とポインタについて

    こんばんわ。 WinSockを利用してネットワークプログラミングを行っています。 以下のようなプログラムを作成したのですが、実行できません。 以下のプログラムは質問箇所を抜き出したものです。 [プログラム] int Receive(u_short portNo) { char recv_Buf[1025],recv_Buff[1025]; size = recvfrom(s2, recv_Buf, (int)sizeof(recv_Buf) - 1, 0, (SOCKADDR *)&from, &fromlen); recv_Buff = recv_Buf; Sender(portNo,szServer,recv_Buff); } int Send(unsigned short portNo,char *szServer,char *recv_Buff) { sendto(s1, recv_Buff, (int)strlen(recv_Buff), 0, (LPSOCKADDR)&addrin1, sizeof(addrin1)); } このプログラムは、Receive関数内のrecvfrom関数で1024Byte(recv_Buf[1025])受信したデータをSend関数内のsendto関数で送信するというプログラムです。 recv_Buf = recv_Buffにてエラーが発生します。なにか解決策はりますでしょうか？ また、Receive関数およびSend関数は何回も呼ばれるのですが、配列は初期化する必要があるのでしょうか？ よろしくお願いします。

  • swith文について

    こんにちは。 switch文を用いて分岐を行っています。 以下のプログラムは、whileの無限ループ内にswitch文の分岐を行っています。while内にrecvfrom関数(ソケット通信用関数)を用いています。recv_Buf配列内をヌル文字まで走査し、文字列の長さによって分岐をしています。 while内のrecvfromによって、他端末から文字列を逐次受信しているのですが、この場合、switch文ではなくif文による分岐を行うべきなのでしょうか？ また、breakを行うことで、whileの無限ループまで抜けることになるのでしょうか？ switchの場合、breakを用いないと、実行したくないところまで実行してしまう可能性があるので、breakは必要だと思い以下のプログラムにしました。 よろしくお願いいたします。 [プログラム] while(1){ 　　recvfrom(s2, recv_Buf, (int)sizeof(recv_Buf) - 1, 0, (SOCKADDR *)&from, &fromlen); 　　while(recv_Buf[len]!='\0') 　　len++; 　　switch(len){ 　　　case 3: 　　　　if(memcmp(recv_Buf,"END",3) == 0){ 　　　　　//処理 　　　　} 　　　　break; 　　　case 5: 　　　　if(memcmp(recv_Buf,"START",5) == 0){ 　　　　　//処理 　　　　} 　　　　break; 　　　　case 12: 　　　　case 13: 　　　　case 14: 　　　　case 15: 　　　　　if(memcmp(recv_Buf,"SEND_PACKET",11) == 0){ 　　　　　　//処理 　　　　　} 　　　　　break; 　　　} }

  • TCP/IP通信型電話番号検索プログラムを作りたいです。

    TCP/IP通信型電話番号検索プログラムを作りたいです。 クライアントは以下のようで大丈夫みたいなのですが、サーバの方を修正しなければなりません。 この質問で「TCP/IP通信型大文字・小文字変換プログラム」を発見しました。 サーバー側プログラム #include <stdio.h> #include <stdlib.h> #include <ctype.h> #include <unistd.h> #include <sys/socket.h> #include <arpa/inet.h> #define SOCK_NAME "./socket" int main() { int i; int fd1, fd2; struct sockaddr_in saddr; struct sockaddr_in caddr; int len; int ret; char buf[1024]; if((fd1 =socket(AF_INET, SOCK_STREAM, 0)) < 0 ){ perror("socket"); exit(1); } memset((char *)&saddr, 0, sizeof(saddr)); saddr.sin_family = AF_INET; saddr.sin_addr.s_addr=INADDR_ANY; saddr.sin_port=htons(1357); unlink(SOCK_NAME); if(bind(fd1, (struct sockaddr *)&saddr, sizeof(saddr)) < 0) { perror("bind"); exit(1); } if(listen(fd1,5) < 0 ) { perror("listen"); exit(1); } while(1){ len = sizeof(caddr); if((fd2 = accept(fd1, (struct sockaddr *)&caddr, &len)) < 0){ perror("accept"); exit(1); } fprintf(stderr, "Connection established: socket %d used.\n", fd2); while((ret = read(fd2, buf, 1024)) > 0 ){ fprintf(stderr, "read: &s\n", buf); for(i=0; i<ret; i++) if(islower(buf[i])) buf[i] = toupper(buf[i]); if(isupper(buf[i])) buf[i] = tolower(buf[i]); fprintf(stderr, "write: %s\n", buf); write(fd2, buf, 1024); } close(fd2); } close(fd1); return 0; } 先生によると、クライアントは同じもので良いそうです。 誰か、助けて下さい。

  • ファイルの受信

    c言語で、クライアント側のファイルを開き、内容をそのまま送信しているはずなのですが上手くいきません。 テキストファイルは正しく送れるようですが、他の実行ファイルなどはダメみたいです。 送信側は、"rb"でオープンし,whileで fread(send_buf,1024,1,fp); send(soc,send_buf,strlen(send_buf),0); を繰り返しています。send_buf[1025]です。 送信側は Recv_buf[1025];で size = recv(soc,Recv_buf,1024,0); fwrite(Recv_buf,size,1,fp); whileで繰り返し受信がなくなったらselectでタイムアウトしています。 いろいろ調べたのですがSleepが必要らしいそうですが・・・どうなんでしょう？

  • TCP/IP通信型大文字・小文字変換プログラム

    TCP/IP通信型大文字・小文字変換プログラムを作りたいです。 しかし、うまく２つのプログラムが接続されません。 恐らく、ＩＰアドレスやホスト名の問題だと思います。 超初心者でそこのところをあまり理解していません。 どなたかプログラムの補足をお願いします。 概要は ・クライアント キーボードから文字列を入力し、サーバーに送信。 サーバーから送信された文字列を画面に出力。 ・サーバー クライアントから送信された文字列に対し、 大文字は小文字に、小文字は大文字に変換して返す。 クライアント側プログラム #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <sys/socket.h> #include <arpa/inet.h> #include <netinet/in.h> #define SOCK_NAME "./socket" int main() { struct sockaddr_in saddr; int soc; char buf[1024]; if ( (soc =socket(AF_INET, SOCK_STREAM, 0 ) ) < 0 ) { perror("socket"); exit(1); } memset((char *)&saddr, 0, sizeof(saddr)); saddr.sin_family = AF_INET; saddr.sin_addr.s_addr=inet_addr("192.168.1.1"); saddr.sin_port=htons(1357); if(connect(soc, (struct sockaddr *)&saddr, sizeof(saddr)) < 0) { perror("connect"); exit(1); } fprintf(stderr, "Connection established: socket %d used.\n", soc); while(fgets(buf, 1024, stdin)){ if(buf[strlen(buf) -1] == "\n") buf[strlen(buf) -1] = "\0"; write(soc, buf, 1024); read(soc, buf, 1024); fprintf(stdout, "%s\n", buf); } close(soc); return 0; } サーバー側プログラム #include <stdio.h> #include <stdlib.h> #include <ctype.h> #include <unistd.h> #include <sys/socket.h> #include <arpa/inet.h> #define SOCK_NAME "./socket" int main() { int i; int fd1, fd2; struct sockaddr_in saddr; struct sockaddr_in caddr; int len; int ret; char buf[1024]; if((fd1 =socket(AF_INET, SOCK_STREAM, 0)) < 0 ){ perror("socket"); exit(1); } memset((char *)&saddr, 0, sizeof(saddr)); saddr.sin_family = AF_INET; saddr.sin_addr.s_addr=INADDR_ANY; saddr.sin_port=htons(1357); unlink(SOCK_NAME); if(bind(fd1, (struct sockaddr *)&saddr, sizeof(saddr)) < 0) { perror("bind"); exit(1); } if(listen(fd1,5) < 0 ) { perror("listen"); exit(1); } while(1){ len = sizeof(caddr); if((fd2 = accept(fd1, (struct sockaddr *)&caddr, &len)) < 0){ perror("accept"); exit(1); } fprintf(stderr, "Connection established: socket %d used.\n", fd2); while((ret = read(fd2, buf, 1024)) > 0 ){ fprintf(stderr, "read: &s\n", buf); for(i=0; i<ret; i++) if(islower(buf[i])) buf[i] = toupper(buf[i]); if(isupper(buf[i])) buf[i] = tolower(buf[i]); fprintf(stderr, "write: %s\n", buf); write(fd2, buf, 1024); } close(fd2); } close(fd1); return 0; }

  • Winsockを利用した単純なファイル送信プログラムについて

    こんばんは。 何度もこの掲示板を利用させていただいている者です。 WinsockのUDPを用いて簡単なファイル送信プログラムを作っています。UDPを使わずに、TCPを使用したほうが良いのでは？とのご指摘をいただきましたが、まずは、UDPを利用した単純なファイル送信プログラムを作ってみたいと思っています。 しかし、送信側から受信側へファイルがうまく受信できていません。もしかしたら、送信側自体がきちんと送信できていないのかもしれません。 以下にそのプログラムの概要と内容を示します。 [概要] 送信側→受信側にUDPを用いて、送信側にあるjpegまたはmpegファイルを送信し、受信側でファイルを開く。 [プログラム概要] ・送信側 ファイルポインタを用いてファイルオープン fread関数とsendto関数を用いて1024バイトずつ送信 ・受信側 ファイルポインタを用いてファイルオープン whileの無限ループ内に、recvfrom関数とfwrite関数を用いて送信側からのデータを受信 [プログラムの内容] ・送信側 printf("読み込み用ファイルを入力して下さい:"); scanf("%s",fname); if((fp = fopen(fname,"rb")) == NULL){ printf("入力ファイルをオープンできない。\n"); exit(1); } char send_buf[1025]; int n; while(n = fread(send_buf,1,1024,fp) != -1){ sendto(theSocket,send_buf,n,0,(LPSOCKADDR)&saServer,sizeof(struct sockaddr)); } ・受信側 char Recv_buf[1025]; char size; SOCKADDR_IN saClient; while(1){ size = recvfrom(theSocket,Recv_buf,1024,0,(LPSOCKADDR)&saClient,&nLen); fwrite(Recv_buf,size,1,fp); } ご指摘またはご教授をいただけたらと思います。 よろしくお願いします。

  • HTTPクライアントの作成について

    下のc言語で書かれたプログラムソースは、とあるHPにあったものです。受信して表示するだけですが、実際にコンパイルもでき動作も確認しています。仕組みも大体は理解しているつもりです。このプログラムを改造して、リンクのURLの一覧のみ表示させるには、どのように改造すればよいのでしょうか？それとも、根本的に仕組みが異なるのでしょうか？詳しくご指導いただけるとありがたいです。そのHPのURLものせておきます。よろしくお願いします。 URL:http://x68000.q-e-d.net/~68user/net/c-http-1.html ※includeは省略しています。 #define BUF_LEN 256 /*バッファのサイズ */ int main(int argc, char *argv[]){ int s; /*ソケットのためのファイルディスクリプタ */ struct hostent *servhost;　/*ホスト名と IP アドレスを扱うための構造体 */ struct sockaddr_in server; /*ソケットを扱うための構造体 */ struct servent *service; /*サービス (http など) を扱うための構造体 */ char send_buf[BUF_LEN]; /* サーバに送るHTTP プロトコル用バッファ */ char host[BUF_LEN] = "localhost"; /*接続するホスト名 */ char path[BUF_LEN] = "/"; /*要求するパス */ unsigned short port = 0; /*接続するポート番号 */ if ( argc > 1 ){ /*URLが指定されていたら */ char host_path[BUF_LEN]; if ( strlen(argv[1]) > BUF_LEN -1 ){ fprintf(stderr, "URL が長すぎます。\n"); return 1; } /*http:// から始まる文字列で */ /*sscanf が成功して */ /*http:// の後に何か文字列が存在するなら */ if ( strstr(argv[1], "http://") && sscanf(argv[1], "http://%s", h ost_path) && strcmp(argv[1], "http://") ){ char *p; p = strchr(host_path, '/'); /* ホストとパスの区切り "/" を調べる */ if ( p != NULL ){ strcpy(path, p);/*"/"以降の文字列を path にコピー */ *p = '\0'; strcpy(host, host_path ); /*"/"より前の文字列を host にコピー */ } else {/*"/"がないなら＝http://host という引数なら */ strcpy(host, host_path); /*文字列全体を host にコピー */ } p = strchr(host, ':'); /*ホスト名の部分に ":" が含まれていたら */ if ( p != NULL ){ port = atoi(p+1); /*ポート番号を取得 */ if ( port <= 0 ){ /*数字でない (atoi が失敗)か、0だったら */ port = 80; /*ポート番号は 80 に決め打ち */ } *p = '\0'; } } else { fprintf(stderr, "URLはhttp://host/path の形式で指定してください。\n"); return 1; } } printf("http://%s%s を取得します。\n\n",host, path); /* ホストの情報(IPアドレスなど)を取得 */ servhost = gethostbyname(host); if ( servhost == NULL ){ fprintf(stderr, "[%s] から IPアドレスへの変換に失敗しました。\n", host); return 0; } bzero(&server, sizeof(server)); 　/* 構造体をゼロクリア */ server.sin_family = AF_INET; /* IPアドレスを示す構造体をコピー */ bcopy(servhost->h_addr, &server.sin_add r,servhost->h_length); if ( port != 0 ){/* 引数でポート番号が指定されていたら */ server.sin_port = htons(port); } else {/* そうでないなら getservbyname でポート番号を取得 */ service = getservbyname("http", "tcp"); if ( service != NULL ){ 　/* 成功したらポート番号をコピー */ server.sin_port = service->s_port; } else {　/* 失敗したら 80 番に決め打ち */ server.sin_port = htons(80); } } /* ソケット生成 */ if ( ( s = socket(AF_INET, SOCK_STREAM, 0) ) < 0 ){ fprintf(stderr, "ソケットの生成に失敗しました。\n"); return 1; } /* サーバに接続 */ if ( connect(s, (struct sockaddr *)&ser ver, sizeof(server)) == -1 ){ fprintf(stderr, "connectに失敗しました。\n"); return 1; } /* HTTP プロトコル生成 & サーバに送信 */ sprintf(send_buf, "GET %s HTTP/1.0\r\n" , path); write(s, send_buf, strlen(send_buf)); sprintf(send_buf, "Host: %s:%d\r\n", ho st, port); write(s, send_buf, strlen(send_buf)); sprintf(send_buf, "\r\n"); write(s, send_buf, strlen(send_buf)); /* あとは受信して、表示するだけ */ while (1){ char buf[BUF_LEN]; int read_size; read_size = read(s, buf, BUF_LEN); if ( read_size > 0 ){ write(1, buf, read_size); } else { break; } } /* 後始末 */ close(s); return 0; }

  • socket: recvはいつ，どれだけ受け取るのか?

    　現在，参考書にしたがってC++でソケットプログラミングを書いています． 　sendとrecvを非同期にするために，本では select関数やWSAAsyncSelect関数などを利用していて，実際，本のとおりに書いて上手く動いています． 　ここで伺いたいのですが，recvは，どうやって「データが届いたか」を知るのでしょうか． 　同期ならば，トランシーバでの会話のように送信側が「どうぞ」といって送受信を交代させることができますが，非同期ならばそれができません． 　NICとかが，プログラムに「届いたぞ!( or これから届くぞ!)」と教えてくれるのでしょうか．あるいは逆に，プログラムがNICに「届いてる?」と聞いているのでしょうか．仮に，ここに書いたような方法で届いたことが分かったとしても，どれくらい受け取ればいいかは分かりません(それも併せて教えてもらっているのでしょうか．データを送るときには，どれだけ送ればいいか分かりますよね．受信するときはどうしてるのかを知りたいと思っています)．

  • C言語のsendとrecv

    C言語でクライアントとサーバのプログラムを作りたいのですが、かなりの初心者なので、とりあえず練習用として、クライアント側に整数を入力すると、サーバ側でその整数を二乗して、結果をクライアント側に返すという簡単なプログラムを作ろうと思いました。 ソケットの作成、通信ドメインの指定等は、参考書を見ながら（というか、ほとんど丸写しみたいな感じなんですが…）、なんとかできたんですが、sendとrecvで整数を送受信するにはどうすればいいのかが分かりません。 私が持っている参考書には、 int send(SOCKETS const char FAR *buf int len int flags); int recv(SOCKETS char FAR *buf int len int flags); とあるのですが、const char FAR *buf、int len、char FAR *bufのところがよく分からないのです。 例えば、a=1000を送信したい場合、aはchar型ではないのでsendでは送れないのですか？ ほんと初心者ですいませんが、どなたか教えてください。 よろしくお願いします。

  • winsock windowprocでFD_WRITEの処理

    すみません。よくわからなくなったので教えてください。 非同期処理を行いwindowprocで送信、受信の処理をしているのですが、一部わかりません。 [内容] クライアントからデータを送信してもらい、サーバ側で受信をして、サーバ側で受信後、クライアントへ送信をしたいのですが.... [サーバ側ソース抜粋] ::WindowProc(UINT message, WPARAM wParam, LPARAM lParam) { int EventErrorCoode; int len; switch(message) { case FM_TCPPROC: EventErrorCoode = WSAGETSELECTERROR(lParam); switch(WSAGETSELECTEVENT(lParam)){ case FD_CONNECT: //コネクトされたときの処理 break; case FD_ACCEPT: if(EventErrorCoode != 0){ NetWork_LogOut(); break; } // 状態判定処理 if(NetWork_Accept() == FALSE){ 　　　//失敗したときの処理 } break; case FD_READ: // データの受信メッセージ if(NetWork_Recv() == FALSE){ 　 } break; 　case FD_WRITE: //テスト折り返し送信 　SendData = "折り返し"; 　strcpy(Recv_Buffer,SendData); 　len = send(server_s, Recv_Buffer, strlen(Recv_Buffer),0); break; 　　　： 　　　： return CDialog::WindowProc(message, wParam, lParam); } ::NetWork_Recv() { int nResult; int len; nResult = recv(client_s, (CHAR *)Recv_Buffer, RECV_SIZE - 1, 0); Recv_Buffer[nResult] = '\0'; return TRUE; } ＊非同期処理はsocket作成後しています。 クライアントから送信されたデータが、FD_READで認識し、NetWork_Recv()関数を使って受信します。 その後、空になった時点で、FD_WRITEを実行すると思っていたのですが、recvされた後、データは空にならないのでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する