ab.com コミュニティ

久しぶりの投稿です。

書き込みを見る限り、何年か前に私の投稿したＦＴＰサンプルのコードの
お話のようなので返信させていただきます。

余り時間が取れないので、コードの詳しい説明とかは省きますが、
一応コードを修正しておきました。

原因は、”TYPE A”コマンドを送った後のレスポンス受信をなぜか2回行っていた
ためだと思われます。

一応、Microsoftのサーバで正常な動作を確認しましたので、一度
ご確認ください。

なお、私の使ったＡＢは4.24なので、違うバージョンでの動作は
試していませんのであしからず。

それにしても、昔の自分のコードは見難い・・・・・

横から失礼します。

試してませんが、

GetWindowText(hcwin,text,len)

の行を

SendMessage(hcwin,EM_GETLINE, 0, text)

に変えて、

print text

の行を

print MakeStr(text)

とかに変えたら出来ませんか？

少しそのウィルスを調べましたが、考えられる可能性は2つあります。

一つは偶然コンパイル後のプログラムのハッシュがトロイの木馬のものとかぶった
可能性。ごく稀に発生する誤検知です。

もう一つはそのトロイの木馬の持つアクティブプロセスに対するAPIフックのインストールにより、プロセスをウィルス扱いした可能性です。

もし後者である場合、トロイの木馬に感染している可能性が高いので
セーフモードでシステムのフルスキャンなどをお勧めします。

どのようなエラー内容ですか？
こちらで試しましたが、警告こそ出ますが、エラーは出ませんでした。（厳密な型チェック有効時）
もし、警告のことを指しているならば、
このコードを
このように型をキャストしてやることで、警告を抑えられます。
的外れだったらすみません。

今気づいたけどABでは　IF は 0 以外は入るみたいで、 Not は、数値に対して　'(数値 + 1) * (-1)'　する関係で If 0 Then MsgBox 0, "test", "0", MB_OK　'非表示 End If If 1 Then MsgBox 0, "test", "1", MB_OK　'表示 End If If -1 Then MsgBox 0, "test", "-1", MB_OK　'表示 End If If Not(0) Then MsgBo...

そのつもりで検証してましたが、

Dim a As String
a = "1"
If a = "1" Then
MsgBox 0, "test", "a", MB_OK
End If
If Not(a = "1") Then
MsgBox 0, "test", "a", MB_OK
End If
End

これを実行するとメッセージボックスが2つ出ます。
そこで、クラス定義をみて、'=='で試してもだめだったので報告しました。

クラスの定義で

Function Operator== (lpszText As LPSTR) As Long
If lstrcmp(This, lpszText) = 0 Then Return TRUE
End Function

がありますが、

Dim a As String
a = "2"
If a == "1" Then
MsgBox 0, "test", "a", MB_OK
End If
End

このソースで文法エラーが発生します。

>7さん この関数だと、たとえば2バイト開始コードが2つ並んでしまうような文字が含まれると 正確にカウントできないと思いますが・・・ やるのであれば以下のようなコードになると思います。 Function mb_lstrlen(ByVal lpString As LPCSTR) As Long Dim cnt=0 As Long While lpString[cnt]<>0 If IsDBCSLeadByte(lpString[cnt]) = TRUE Then cnt++ End If mb_lstrlen++ cnt++ Wend End Function

FTPのサンプルも投稿済みです。

http://www.discoversoft.net/forum/viewtopic.php?t=303

少し面白そうなので返信します。

タスクマネージャから強制終了できないようにするにはタスクマネージャに
列挙されなければいいので、方法としては、DLLで機能を実装して
他のプロセス（たとえばExplorer）などにそのDLLのExportさせた
関数を呼び出させる方法があります。（コードは省略します）
ただし、この方法はあまり行儀のよい方法とは言えないので、
素直に非表示WindowをつくりDestroyイベントで自分を実行させる
方法などはいかがでしょうか。（こちらもあまり行儀のいい方法ではないですが・・・）

みどるべあさんはじめまして。situmonと申します。

POSTデータの送受信のどの部分が分からないのでしょうか？

サーバへのコネクションの部分なのか、HTTPのプロトコルの部分なのかを
お答えください。

可能です。
実践コードモジュールに私の投稿したメールのサンプルがありますので
参考にどうぞ。

> とりあえず，windns.hはここで入手できそうです。
>
> http://www.cs.colorado.edu/~main/cs1300/
> ※"include"→"windns.h"と進む。

了解です。何とか見ながら作ってみます。
ありがとうございました。

久しぶりに質問させていただきます。

現在私は、SMTPサーバのサーバ間の挙動について調べています。
そこで、メールアドレスからSMTPサーバを得る方法を探していて、
DNS APIのDNSQuery関数が必要らしいというのを知りました。
情報収集してみて、Cのサンプルは少々あったのですが、
windns.hが見当たらず、コンパイルできませんでした。

そこで、どなたかDNSQuery関数を使ったことのある方がいましたら、
ご教授願います。

はじめまして。situmonと名乗っているものです。

Socketを使った方法しかやったことがないのですが、
実践コードモジュールにサンプルを乗せておきました。

もしよろしければ参考にしてみてください。