ab.com コミュニティ

ありがとうございました。

サーバーにそのパズルを送信して他のプログラムに受信することは可能でしょう。
web埋め込みまでは、jsとかhtml、フラッシュとかの仕事なので、面倒くさくなりそうですが。
アプリで送受信の場合なら簡単なんじゃないでしょうか。

このまえ、インプットボックスについて質問をしたところ、ABにはないとのことでしたので、ImputBoxのDLLを作ってみようという気になりました。 一通り作業を終え、testをしてみたところ、なぜか自作のImputBoxが動かないという事態に... 内容としては、 1.programからDLLを呼び出す。 2.consoleで、ImputBoxから得た文字列を表示 3.終了 という形で、単純でした。 ところが、なぜかImputBoxが表示されなかったのです。 原因を模索したんですが、見当たらなかったので、プロジェクトファイル一式をリンクにしときます。 原因わかったら、教えてくれたら幸いです。 ...

インプットボックスってないんですか？

ようするに、cryptの内容が、『なにぬねの』に戻っていないのです。

http://orios.s151.xrea.com/activebasic/basic/lesson1-5-3.html これを利用して、 Dim Buffer As BytePtr Buffer = "なにぬねの" Dim key As Long key = 152 ' 暗号化 crypt = String$(Len(Buffer), Chr$(0)) For i = 0 To Len(crypt) - 1 ' 文字コードにパスワードの数字を足して暗号化データを作る crypt = (Buffer + key) Mod 256 Next でいったん暗号化し、 cryp...

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String,_ ByVal lpSectorsPerCluster As String, ByVal uReturnLength As Long,_ ByVal hwndCallback As Long) As Long Dim Com As String Dim Back As String Dim unkown As Long Dim Ret As Long Ba...

では、String変数をどうすればいいでしょう?
削除まではうまくいくので、ツリービューに表示するところでエラーが発生していると考えられます。

'----------------------------------------------------------------------------- ' イベント プロシージャ '----------------------------------------------------------------------------- ' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。 ' ウィンドウ ハンドル: hMainWnd ' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。 ' TODO: この位置にグローバル...

現在、ドラッグアンドドロップされたファイルをツリービューに表示するprojectを練っているのですが、なかなか上手く行きません。 '----------------------------------------------------------------------------- ' イベント プロシージャ '----------------------------------------------------------------------------- ' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。 ' ウィンドウ ハンドル: hM...

なんかもう、こんな感じに...

複数のファイルとフォルダーがドラッグアンドドロップされた場合、一つずつ表示するにはどうすればいいでしょう？ Dim Onthefile Function DropEditProc(hWnd As HWND, message As DWORD, wParam As DWORD, lParam As DWORD) As DWORD Select Case message Case WM_DROPFILES Dim hDrop As HDROP Dim FileName[MAX_PATH] As Byte Dim FileName2 As string hDrop=wParam As HDROP '...

自己解決いたしました

の方がよくないですか?

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。 Dim DefEditProc As Long Dim Onthefile As string Dim Onput As string Dim strURL As string Dim Option1 As long Dim cloud1 As Long Dim fos As SHFILEOPSTRUCT Dim deletePath As String Dim A1 As String Dim Button As Long Dim Button2 As Long Dim lpMsgBuf As BytePtr D...