https://hsp.moe/#packdll
ソースコードはこれです。
#runtime "hsp3ld" #include "packdll.as" // パックファイルからDLLを読み込む(実行ファイルにしたとき) LoadPackDLL "hspinet.dll" // #func #cfunc のみ if stat : dialog "hspinet.dll の読み込みに失敗しました" : end //http://hsp.tv/play/pforum.php?mode=pastwch&num=91873 #pack "hspinet.dll" #include "hspinet.as" #include "hsp3utf.as" #packopt name "Dischat" #packopt icon "discord_logo_icon_145337.ico" title "Dischat" *chat cls a="" name="" netinit neturl "https://discord.com/api/webhooks/891512627711340564/84fYix8XV68UChUCs3CesL8pVv6D2IZ2KpHaGfkUogydR2IGJHHH9sQV1n7-n4uH4VIe" netheader "Content-Type: application/json" pos 0,0:mes "名前" pos 0,20:input name,100,20 pos 0,60:mes "内容" pos 0,80:input a,100,20 button "送信",*start stop *start b="{\"content\": \""+name+":"+a+"\"}" //a="{\"content\": \"Hello from Webhook\\n改行は\\\\\\\\\\\\\\\\nで送るらしいですよ。\"}" netrequest_post "",b //以下sample/hspinet/test7.hspのアレ 結果は何も表示されない で正解。 mes "DOWNLOAD 開始" *main ; 結果待ちのためのループ netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "ERROR "+estr stop *comp ; 完了 cls goto *main23 *main23 netinit neturl "https://discord.com/api/webhooks/891513956391329812/czxOB8TlV2B1dV7RfVQVdVavsGP_4hB9rtwvVP1-5Aw3t0CxJS1uoQhW_vUNxIX0XHfk" netheader "Content-Type: application/json" netrequest_post "",b goto *main2 *main2 ; 結果待ちのためのループ netexec res if res > 0 : goto *comp2 if res < 0 : goto *bad2 await 50 goto *main2 *bad2 ; エラー neterror estr mes "ERROR "+estr stop *comp2 ; 完了 cls mes "送信完了" button "もう一度chat",*chat netgetv buf mesbox buf,640,400,1