================================================= SSTPクラス　簡易マニュアル ================================================= １．始めに 　SSTPがなんのことかわからない方は使用しないで 　ください。聞かれてもあんまり答える気がありません。 ２．サポート 　どのようなトラブルが起ころうとも、こちらでは一切 　責任はおいません。それでもかまわない方のみ使って 　ください。質問等はメールか掲示板でお願いします。 　なお、満足のいく解答がえられる保証はありません。 ３．使い方 　サンプルをみてください。 　基本的にはScriptを設定してSendするだけです。 ４．参考文献等 　・VBからSSTPサーバを使用するプログラム ver1.01 (C)ぐりお氏 本当にで参考になりました。こっちのほうが使いやすいかも。 　特にエラー関連。気がついたら、大部分これから移植したかも。 　・いろんなホームページ（何か関連のページ） ５．開発環境 　　M/B K7T Master-I CPU Duron 800MHz HDD 40GB + 4GB + 3GB MEM 128MB + 64MB VGA EVIL KYRO 64MB SND Game Theater XP Sound Track 4DWave-NX SC-88VL DVD DVD-113R P D ODX658 ６．謝辞 　　動作テストに協力いただいたT.H.氏に感謝です。 ================================================================ クラス　リファレンス ================================================================ プロパティ　　読み書き　　型　　　　説明 Init 読み　　　Boolean 初期化が成功したかどうか 　　　　　　　　　　　　　　　　　　返します sakura　 読み　　　Boolean　　 起動しているかどうか返します True で起動しています Winsock 読み String Winsock.dllの情報の取得 Port 読み書き PortNum ポート番号の設定・取得 (Long) IP 読み書き Long IPアドレスを設定・取得 SenderName 読み書き String Senderの設定・取得 Script 読み書き String Send SSTP/1.1 で使用する Scriptの設定・取得 Document 読み書き String GIVE SSTP/1.1 で使用する Documentの設定・取得 Songname 読み書き String GIVE SSTP/1.1 で使用する Songnameの設定・取得 Text 読み String SSTPの戻り値を取得 LastErr 読み Long 最後に起こったWinsock,SSTPの 　　　　　　　　　　　　　　　　　　エラー番号を取得 ---------------------------------------------------------------- メソッド 引数　　　 戻り値　　　説明 SSTPInit なし　　　 Boolean Winsockの準備をします 　　　　　　　　　　　　　　　　　　 最初に行います。Trueで成功 send なし　　　 Boolean Send SSTP/1.1を実行 GIVE なし Boolean GIVE SSTP/1.1を実行 Quite なし　　　 Boolean Sakuraを黙らせます Restore なし Boolean Quiteを解除します GetIPNum IPアドレス Long 引数で指定したIPアドレスを Long型の数値に変換します。 IPアドレスは , で区切ります ---------------------------------------------------------------- 使用例 'クラス使います Dim clsSSTP As New cSSTP 'Sakura起動チェック If clsSSTP.sakura = False Then MsgBox "sakuraを起動してね" 'Winsockチェック エラーが出たら終了します If ClsSSTP.SSTPInit = False Then MsgBox "WinSock Error" End End if '設定 With clsSSTP .Port = Num_9801 'Port 9801 を使う .SenderName = "EYE-K" 'Sender Name を指定 .IP = .GetIPNum(203,32,113,133) 'IP address 203.32.113.133 に接続 .Script = "こんにちわ" '送信する文字列 End With 'IPで指定したアドレスにスクリプトを送信 If clsSSTP.send = False Then '送信失敗の時 clsSSTP.Script = "送信失敗" Else '成功の時、戻り値（文字列）をスクリプトに指定 clsSSTP.Script = clsSSTP.Text End if 'IPをローカルに変更 clsSSTP.IP = clsSSTP.GetIPNum(127,0,0,1) '送信 clsSSTP.send