トップページ⇒tech
1001コメント220KB

【最適化機能】HSP初質51　【それは通常の３倍】

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2006/03/17(金) 11:42:01
■とりあえずこれを嫁。
　　http://www.geocities.jp/hsp_summary/law.html

　■ 前スレ
　　【オフィシャル発売】HSP初質P50【コンテスト選考】
　　http://pc8.2ch.net/test/read.cgi/tech/1132612819/

　■HSPの入手はここから（HSP2.61、HSP3.0公開中。）
　　□Hot Soup Processor Page
　　　　http://www.onionsoft.net/hsp/

　■HSPの各種情報
　　□HSP Wiki
　　　　http://quasiquote.org/hspwiki/
　　　　http://quasiquote.org/hspwiki/2%a4%c1%a4%e3%a4%f3%a4%cd%a4%eb%a4%ce%a5%b9%a5%ec%a5%c3%a5%c9

　■HSPLetの入手はここから（ブラウザ上でHSPを動かす）
　　□HSP BIGINNER'S CLUB
　　　　http://www.rinku.zaq.ne.jp/ultimate/
　　□HSPLet3.0
　　　　http://www.group-finity.com/HSP/HSPLet/

　■HSPスレまとめページ
　　□Hot Soup Processor@2ch
　　　　http://hsp2ch.hp.infoseek.co.jp/
　　　　http://www.geocities.jp/hsp_summary/
0131デフォルトの名無しさん2006/04/08(土) 21:33:11
>>123とかのソースだとdatは取りにいってないよ
カレントディレクトリに1136120025って
（拡張子がついてない）名前のファイルが無い？
noteloadできてるってことはあるはずだけど。
01321092006/04/08(土) 22:02:51
1136120025というファイルはできています。
中身はttp://game9.2ch.net/test/read.cgi/tcg/1136120025
と同じと思われます。
0133デフォルトの名無しさん2006/04/09(日) 04:56:07
ここID無いw
0134デフォルトの名無しさん2006/04/09(日) 15:41:24
DLGTEMPLATE 構造体と　DLGITEMTEMPLATE　構造体の使い方が良くわからない。DLGTEMPLATEだけ付けてやるとうまくいくけど(18+α)
typedef struct {
DWORD style;
DWORD dwExtendedStyle;
WORD cdit;
short x;
short y;
short cx;
short cy;
} DLGTEMPLATE;

cditを0 にすると　うまく行く。コールバックは、hscallbk.as
sdim DLGTEMPLATE,18+4+40+4
st=WS_VISIBLE|WS_CAPTION|WS_POPUP|DS_MODALFRAME|WS_SYSMENU|DS_SETFONT
lpoke DLGTEMPLATE,0,st ;style;
lpoke DLGTEMPLATE,4,0 ;dwExtendedStyle;
wpoke DLGTEMPLATE,8,0 ;cdit;
wpoke DLGTEMPLATE,10,0:wpoke DLGTEMPLATE,12,0 ;xy
wpoke DLGTEMPLATE,14,200 :wpoke DLGTEMPLATE,16,80 ;cxcy
wpoke DLGTEMPLATE,18,0:wpoke DLGTEMPLATE,20,0;クラス名
sdim po,40: cnvstow po,"バージョン情報"
memcpy DLGTEMPLATE,po,40,22 :wpoke DLGTEMPLATE,62,10:wpoke DLGTEMPLATE,64,0;フォント名

DialogBoxIndirectParamA hinstance,DLGTEMPLATE,0,pDlgProc,0

Cのサンプルは、ぐぐりゲットし、ためしたらうまく動いてる。ABのサンプルもあったけど。エラーで動かず

GlobalAllocでもだめ。ボタンぐらいは付けたいな。最悪　WM_INITDIALOGで処理しても。
01351342006/04/09(日) 20:25:21
リソースをコードにして埋め込んだら　なんか出来た。ｗ

でっも納得いかねー
01361342006/04/09(日) 23:38:53
やっと原因がわかった＿|￣|○

全角と半角をマルチに変換したときの長さ・・・。。
この時点でうまく行かんわな。土日損したような、さっぱりしたような気分。

#uselib "KERNEL32.DLL"
#cfunc global lstrlenW "lstrlenW" var

sdim po,64
st="バージョン情報"
mes strlen(st):cnvstow po,st:mes lstrlenW(po)
st="HSP test Version 1.0"
mes strlen(st):cnvstow po,st:mes lstrlenW(po)
st="ＭＳ Ｐ明朝"
mes strlen(st):cnvstow po,st:mes lstrlenW(po)
st="MS UI Gothic"
mes strlen(st):cnvstow po,st:mes lstrlenW(po)
0137デフォルトの名無しさん2006/04/09(日) 23:54:50
おめでとう。
0138デフォルトの名無しさん2006/04/10(月) 04:48:48
削除依頼してあるから
大事な事は書かない方が良い。

↑HSPWikiに載せてorz。
0139デフォルトの名無しさん2006/04/10(月) 15:16:59
どう見てもこっちが本スレなのになんで削除依頼でてんの？
01401092006/04/11(火) 01:54:31
さあ・・・

しかし、hspbreの作者に質問のメール送ったのですが、
２日経っても帰ってこない・・・
0141デフォルトの名無しさん2006/04/11(火) 02:10:41
お客さんじゃないから
0142デフォルトの名無しさん2006/04/11(火) 04:16:45
>>123
今更ですが
bb = "s/.*ID:([\w/+]+)(\<dd| \<a ).*/\1/g"
bb = "s/.*ID:([\\w/+]+)(\\<dd| \\<a ).*/\\1/g"
とか？

ちがうか。。。
01431092006/04/11(火) 04:18:35
>>142
おそらく
\w/+
の/が原因かと。
0144デフォルトの名無しさん2006/04/11(火) 18:23:15
削除依頼すれば必ず削除されると思ってんじゃないか
01451092006/04/12(水) 00:10:53
<[email protected]>:
Sorry, I wasn't able to establish an SMTP connection. (#4.4.1)
I'm not going to try again; this message has been in the queue too long.

orz
0146デフォルトの名無しさん2006/04/12(水) 13:40:37
前に自演ソフト作ったっけな
本当は、無能機能付けたかったんだけど断念。
0147デフォルトの名無しさん2006/04/12(水) 13:42:09
大体正規表現がよくわからない
0148デフォルトの名無しさん2006/04/13(木) 11:34:54
hspbre
HSP3.0〜でも使える？
0149デフォルトの名無しさん2006/04/13(木) 15:11:03
つか、なんでそれを使うのかが訳わか。
hspbre.dllも使うしBREGEXP.DLLも用意しないといけないみたいだし。
3.0ならＣＯＭから正規表現を使うサンプル付いてるしｗ
01501092006/04/13(木) 16:56:47
#include "hspinet.as"
#define target_num"1136120025"
netinit
neturl "http://game9.2ch.net/test/read.cgi/tcg/"
netload target_num
sdim d_note,5000000
notesel d_note
noteload target_num
bb = "\n"
cc = "\r\n"
newcom oReg,"VBScript.RegExp"
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
bb = "^[^<].*$|^<[^d].*$|^<d[^t].*$"
cc = ""
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
bb = ".*ID:([\w/+]+)(\<dd| \<a ).*"
cc = "\1"
comres result
oReg("Pattern")=bb
oReg->"Replace" d_note,cc
d_note=result
notesave target_num
print "完了"

・・・なんか置換が動いていない気がする・・・
0151デフォルトの名無しさん2006/04/13(木) 18:11:48
>>149
ＣＯＭは嫌いだからＨｍＪｒｅを使ってみるね。
0152デフォルトの名無しさん2006/04/13(木) 22:43:41
>>150
そりゃそうだろ。
0153デフォルトの名無しさん2006/04/14(金) 01:57:13
>>149
なるほど〜そっち使います
01541092006/04/14(金) 02:10:04
>>152
理由がさっぱりわかりません・・・
サンプルどおりに打ち込んでみたんですけど。
0155デフォルトの名無しさん2006/04/14(金) 06:10:24
HSPを始めたばかりのプログラミング初心者なのですが、
どうしても行き詰まってしまったので質問させて頂きます。

まず、いくつかのサイトのURLを変数に代入して(例:url=http://hogehoge.com)
exec url,16として既定のブラウザで開かれるところを、
既定のブラウザではなくブラウザを選択して開きたいのです。
要約するとやりたい事は「ブラウザを選択してサイトを開く」という事なのですが…

dialog "exe",16,"実行ファイル"
として、システム変数refstrに代入されたexe(ブラウザ)で、変数urlを実行良いと考えたのですが、
「指定した実行ファイルで指定したファイルを開く」の様な命令が見つからずに困っています。
neturlやnetrequest、netexecを使うのかとも考えましたが、
やはり取得したファイルをどうやって指定のブラウザで実行するのかがわかりません…。

何か根本的に間違えているのでしょうか…？
0156デフォルトの名無しさん2006/04/14(金) 14:47:06
ググったほうがはえぇ

path = "c:\\Program Files\\Mozilla Firefox\\"
p="http://www.google.co.jp/"
exec path+"firefox.exe "+p
0157デフォルトの名無しさん2006/04/14(金) 15:07:09
>>154
mes bb してみりゃ分かる。
0158デフォルトの名無しさん2006/04/14(金) 15:41:58
>>150
正規表現はよくわかんないけど
3.0a以降

notesel d_note
noteload target_num
bb = "\n"
cc = "\r\n"
newcom oReg,"VBScript.RegExp"
oReg("Pattern")=bb
oReg("Global") =-1
oReg->"Replace" d_note,cc
d_note=oReg("Replace",d_note,cc )
bb = "<[^>]*>"
cc = ""
oReg("Pattern")=bb
oReg("Global") =-1
d_note=oReg("Replace",d_note,cc )
bb = ".*ID:([\\w/+]+)(\\<dd| \\<a ).*"
cc = "\\1"
oReg("Pattern")=bb
oReg("Global") =-1
d_note=oReg("Replace",d_note,cc )
notesave target_num
print "完了"

で少しは、マシじゃない？？
0159デフォルトの名無しさん2006/04/14(金) 15:45:12
それよりそのＤＬ先のスレも、なんともｗｗｗ
01601092006/04/14(金) 16:41:16
http://with2ch.net/cgi-bin/up/src/with2chup1209.lzh

とりあえず改行の変換は成功しましたが、
どうしてもそれ以降の置換の調子が・・・

まあ、どうもこのルーチンの場合だと最初の１つしか引っかからないみたいですが、
その１個すら置換されてないみたいで。
0161デフォルトの名無しさん2006/04/14(金) 17:34:59
109はもう少し自力でなんとかしろ
0162デフォルトの名無しさん2006/04/14(金) 18:22:33
答えは知っててやってるんだよ・・きっと
まっ　ネタって事だな。
01631092006/04/14(金) 19:25:17
すいません、
ＨＳＰ暦１５日で。
orz
0164デフォルトの名無しさん2006/04/14(金) 21:34:27
これじゃダメなんかなぁ？（重複チェックは別だけどｗ

zz = ""
repeat
linesize = instr(note,size,"<dt>") //<dt>タグの位置を基準に
if linesize = -1 : break
size += linesize+1
posID = instr(note,size,"ID:") //ID:の文字を探して
if posID = -1 : break
zz += strmid(note,posID+size+3,9) + "\n" //その後の文字列を抜き出す
loop

len = strlen(zz)
bsave "ID.txt",zz,len
0165デフォルトの名無しさん2006/04/15(土) 05:12:55
3.0のlibソース売るって言ったら幾らなら買う？

2,3千円かな
0166デフォルトの名無しさん2006/04/15(土) 13:34:08
買わね。
金かけるんなら、Ｃやる。
0167デフォルトの名無しさん2006/04/16(日) 01:56:27
ひ・ま・だ
XPでﾂｰﾙﾊﾞｰのｶｽﾀﾑﾄﾞﾛｰって出来ないな！
0168デフォルトの名無しさん2006/04/16(日) 08:27:43
しかし、あいつは暇なんだなw
0169デフォルトの名無しさん2006/04/17(月) 04:09:53
CLのﾗﾝﾀｲﾑﾘｺﾝﾊﾟしてみたら
43kだった。/O1/MD
でもﾚｯﾂupxで圧縮できないorz
APIが使えるみたいだけど
DOS窓出ないようにできないかな
ｺｰﾙﾊﾞｯｸが付けばAPIで窓造ってｳﾏｰw
0170デフォルトの名無しさん2006/04/17(月) 16:48:50
HSPから、iアプリを作る企画が進行中・・・・・・らしい。

0171デフォルトの名無しさん2006/04/18(火) 05:36:52
DoCoMo持ってないし
ｳｨﾙｺﾑ最強
0172デフォルトの名無しさん2006/04/18(火) 13:07:36
スパムメール削除ソフトってシェアが多いな。

自作が一番使いやすいｗ
0173デフォルトの名無しさん2006/04/18(火) 16:31:12
ソースくれ
0174デフォルトの名無しさん2006/04/18(火) 18:17:04
ラベル型(変数に格納できるラベル)の実装
テンプレート機能とテンプレートマネージャーの追加

とは？ またメリット、使い道は？
0175デフォルトの名無しさん2006/04/18(火) 18:18:35
>>173
クレくれ房　乙
0176デフォルトの名無しさん2006/04/19(水) 06:46:45
テンプレート？
0177デフォルトの名無しさん2006/04/19(水) 11:15:27
>>172
付属のサンプルを参考に、いざやろうとするとﾑｽﾞｲ
0178デフォルトの名無しさん2006/04/19(水) 11:36:12
てか、ｸﾗｲｱﾝﾄからのﾒｯｾｰｼﾞ
取れねー

0179デフォルトの名無しさん2006/04/19(水) 18:40:31
漏れＨＳＰのド初心者なんだが、これ何がなんだかさっぱりワカンネorz
例えば文字を表示する場合ってmesbox<入力する文字>ってやればいいのか？
0180デフォルトの名無しさん2006/04/19(水) 20:29:00
>>179
無理するな、寝てろ。
0181デフォルトの名無しさん2006/04/19(水) 21:19:39
ｒァ　せめてどのスプリクトがどんな意味を成すのか書いてあるページを教えてくれ！　頼む！
　　　殺してでも無理せず寝る。
　　　そう、関係ないね。
0182デフォルトの名無しさん2006/04/19(水) 21:52:00
OSU "HELLO WORLD" or MES "HELLO WORLD"
0183デフォルトの名無しさん2006/04/19(水) 23:51:21
メールさーばやっと出来た。

後は正規表現設定してか・・・めちゃおそっ
0184デフォルトの名無しさん2006/04/20(木) 00:19:47
ＯＥ専用だけどね・・・
ｸﾗｲｱﾝﾄ　STAT
yahoo +OK 1 1365
ｸﾗｲｱﾝﾄ　LIST
yahoo +OK 1 message (1365 octets)
1 1365
.ｸﾗｲｱﾝﾄ　TOP 1 0
ここで多分チェックしてるんだろうな。
.ここで[spam]とかサブジェクトに書けばＯＫってことか
ｸﾗｲｱﾝﾄ　RETR 1
0185デフォルトの名無しさん2006/04/20(木) 01:26:52
VBScript.RegExpも勉強せにゃならんし
コンテストもそろそろ視野に・・

つかベクターにシェアでだすかｗ　まっ　ＨＳＰ製じゃ誰も買わないかなｗ
0186デフォルトの名無しさん2006/04/20(木) 01:29:50
さんだーばーどにしろと・・・言ってるのに年よりは、嫌がる。

0187デフォルトの名無しさん2006/04/20(木) 05:58:46
エンコードが面倒だから　From: [smp] にした。
ＯＥのメッセージルールの場合送信者か件名でチェックするとさばから
削除できるみたいだ。

通知領域に入れるかどうか。
会社で使うやつだからなぁ

0188デフォルトの名無しさん2006/04/20(木) 07:25:35
学習機能？
そんなﾓﾝ付いてません
0189デフォルトの名無しさん2006/04/20(木) 07:28:33
>>187
どっから[smp]って出てきたww
spmならまだ解るがww
0190デフォルトの名無しさん2006/04/20(木) 18:50:17
hspで1000行以上のソースかいてる人っている？
0191デフォルトの名無しさん2006/04/20(木) 21:02:03
ごく普通の書き方で？ pos 0 ,0 : button gosub "xxxxx", *xxx こんなんとか？

今作ってるめるさばで210行　住所録で600行。エディタとかだと行くんじゃないの・・・
0192デフォルトの名無しさん2006/04/20(木) 21:05:07
これって仕様でつか？

title "ssssssss\n\n"
0193デフォルトの名無しさん2006/04/20(木) 22:53:11
誰かHSPのステートメントを纏めてあるサイト知りませんか？
変数操作やラベル指定するときどんな文字入力をすればいいのか
わかりません
0194デフォルトの名無しさん2006/04/21(金) 00:40:51
システム変数や定義されてる命令（関数）とかぶらないように　ってこと？
だったら、

マニュアル→命令リファレンス　と、
マニュアル→基本仕様ガイド→システム変数
0195デフォルトの名無しさん2006/04/21(金) 09:36:27
正規表現解りません
ずーっと見てると顔文字にみえてくる。
0196デフォルトの名無しさん2006/04/21(金) 11:41:47
http://hsp.tv/make/downlist.html
ここから、HSPのダウンロードができないよ
なんで？
01971942006/04/21(金) 17:22:55
色が変わるの忘れてた・・・orz
0198デフォルトの名無しさん2006/04/21(金) 18:46:18
MSMAPI.MAPIMessages でもいいのか・・

どっちにしろ正規は使うんだな・・・だれか雛形書いてくれｗｗ
0199デフォルトの名無しさん2006/04/21(金) 18:47:54
スパムの　正規表現調べてると　Becky!　が良く出てくる
0200デフォルトの名無しさん2006/04/21(金) 18:51:39
>>198
ライセンスで、使えねぇｗｗｗ
0201デフォルトの名無しさん2006/04/21(金) 20:39:47
ちょっと出来た

cc="From: .*(@freeml\.com|\.com||\.cn|\.th)"
cc="^From: .*(@freeml\.com|\.com||\.cn|\.th)"これだとエラー？？

極めつけは　cc="[あーん]"　だそうだ。

でも基本的に全部スパにして通すものを登録のほうがいいかな
これ以上おそくなってもしょうがないし正規表現にハマリたくないｗｗｗ
0202デフォルトの名無しさん2006/04/22(土) 01:33:24
さば、立ち上げるだけで　9.5Ｍｗｗｗｗ
0203デフォルトの名無しさん2006/04/22(土) 06:12:10
あーぁ
なんだかんだ付けてたら100Ｋ越した。
0204デフォルトの名無しさん2006/04/22(土) 06:45:38
なんとか使えるレベルまできた。
ただなんで9Mもメモリが食うのかな
まぁ　mes "a" でコンパイルしても　5〜6Ｍだからなｗｗ

mswinsck.ocx　がライセンス　うんぬん無かったらwikiにでもあげるのになｗ
0205デフォルトの名無しさん2006/04/22(土) 13:29:02
sdim buf,3000
sdim　で確保した物は、自動再確保しないんだな。
0206デフォルトの名無しさん2006/04/22(土) 13:43:46
Winsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
イベントは、ひとつ用意すればいいのかよwwwwwwwwwwwww
作り直しだ orz
0207デフォルトの名無しさん2006/04/22(土) 20:27:12
Becky!でスパムメールを自動的に90%以上捨てる方法

のページのおかげで回避率あがったｗスゴスｗｗ

cc="[^\.]*[0-9]{5}"　とか　いまだに理解してないがｗｗｗ

0208デフォルトの名無しさん2006/04/22(土) 23:32:28
MSMAPI32.DLL を使うのもいいかもコード変換も自動だし
0209デフォルトの名無しさん2006/04/23(日) 06:05:35
>>206
void DataArrival(long bytesTotal); しかねぇょ
0210デフォルトの名無しさん2006/04/23(日) 15:36:32
誰か、希望のWEBページを開けるHSPのEXEをうp汁
0211デフォルトの名無しさん2006/04/23(日) 16:16:38
>>210
サンプル→new→web.hsp
0212デフォルトの名無しさん2006/04/23(日) 21:17:43
>>211
ありがと＆スマソ・・・
0213β3ｷﾀ━━(ﾟ∀ﾟ)━━!!2006/04/24(月) 00:11:12
β3ｷﾀ━━(ﾟ∀ﾟ)━━!!

ハイ、ﾗﾝﾀｲﾑ作り直し
0214デフォルトの名無しさん2006/04/24(月) 08:24:02
ベクターからスパム撃退ソフト何個かＤＬって見たけど

UDPで繋げてるのもある見たいだ。なんか違いは、あるのかな・・
0215デフォルトの名無しさん2006/04/24(月) 10:41:43
ログを必要最小限しか取らないようにしたら少しﾏｼになった。
あとはｱｲｺﾝ作ってー
つっかもう飽きた。
0216デフォルトの名無しさん2006/04/24(月) 22:26:08
じゃぁソースくれ
0217デフォルトの名無しさん2006/04/25(火) 01:14:01
VBｲﾝｽﾄｰﾙしてないとむりだな！
0218デフォルトの名無しさん2006/04/25(火) 06:02:57
GWなんだな、
何処か行くのか？
0219デフォルトの名無しさん2006/04/25(火) 16:12:28
HSPって０２を使わないでもチャットのような通信するものは作れますか？
0220デフォルトの名無しさん2006/04/25(火) 21:12:00
ttp://www.google.co.jp/search?q=HSP+%E3%83%81%E3%83%A3%E3%83%83%E3%83%88
0221デフォルトの名無しさん2006/04/25(火) 21:28:26
っていうかさｗ　作れますか？作れませんか？ってさ・・・

言うのは簡単だよね？　作れるってさｗｗｗｗｗ




0222デフォルトの名無しさん2006/04/26(水) 10:35:17

大概作れるけどな
作れない物はなんだろう？
0223デフォルトの名無しさん2006/04/26(水) 18:08:56
飛行機
0224デフォルトの名無しさん2006/04/26(水) 18:24:14
横ｽｸのｻﾝﾌﾟﾙなら付属してるぞ

3Dの飛行機のやつはあったかな
0225デフォルトの名無しさん2006/04/26(水) 23:33:31
画面のイメージをダイレクトに印刷したいのですが
どうしたらいいでしょうか？？
0226デフォルトの名無しさん2006/04/27(木) 01:21:41
ｷﾝﾀﾏ作る訳じゃあるまいなw

ヨのｿｰｽならﾍﾙﾌﾟｾﾝﾀｰの過去ログにあるがw
0227デフォルトの名無しさん2006/04/27(木) 18:27:36
いやぁ、何気につくったスパム削除する奴
思いのほか快調だｗｗ wsock32.dllにかえてWIKIに上げようかな
0228デフォルトの名無しさん2006/04/28(金) 03:28:03
Prime Super Mini ってのホスぃ
0229デフォルトの名無しさん2006/04/28(金) 08:44:59
今はこっちか？ws2_32.dll
ＨＳＰ用の講座ページあるじゃんｗ
0230デフォルトの名無しさん2006/04/28(金) 15:53:01
Thunderbird使ってるからスパムとは無縁
■ このスレッドは過去ログ倉庫に格納されています