【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (435ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
99: デフォルトの名無しさん [] 2017/02/26(日) 13:08:20.87 ID:K90trdCC >>98 つづき。こんなのも作った。 Dim As String TopSubKeyString, BottomSubKeyString, SubKeyNameString() Dim Ierror As Long 'Input File No. 3 D:\bas\Projects\Kako02\0RegData\3333.reg.txt ' RegPathString = "SOFTWARE\Microsoft\Advanced INF Setup\IE40.UserAgent\RegBackup" TopSubKeyString = "SOFTWARE\Microsoft\Advanced INF Setup" BottomSubKeyString = "\RegBackup" TakaDammyReturnCode = ReadSubKeyList0(HKEY_LOCAL_MACHINE, TopSubKeyString, SubKeyNameString(), Ierror) ' SubKeyNameString(3) = ["IE CompList", "IE.HKCUZoneInfo", "IE40.UserAgent"] '**********************\(ちょっと違う)\******************* というサブキー内にちょっと内容が異なる値が保存されている場合を想定。 UserNameの取得で、導入したユーザー名をかき集めるための物。 (ちょっと違う)ところをSubキーとして検索（Function ReadSubKeyList0(なんたら)）して、フルスペルを取得。 個別に各キーの値を取得するための、Subキー一覧を作成するための物 http://mevius.5ch.net/test/read.cgi/tech/1482549747/99
100: デフォルトの名無しさん [] 2017/02/26(日) 13:18:03.93 ID:K90trdCC 作成したソフトの中身を眺めた範囲では、 Open InFileString For Input Encoding "utf-16" As #InFileNo While - Wend で回して、先頭1文字又は先頭3文字で作業内容を決定 一番最初の[]内でルートキーを取得し その後は[でサブキー名、"や@でキー名、=がない場合にはキー値の追記行として処理 だから、そんな難しいルーチンではないと思う。 サブキー、キー名、キー値の3つがそろったところ、つまり、サブキーの先頭行か、キー名の先頭行で検索する http://mevius.5ch.net/test/read.cgi/tech/1482549747/100
101: デフォルトの名無しさん [] 2017/02/26(日) 13:25:38.25 ID:K90trdCC >>98の 'KeyValString = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT; MS Search 4.0 Robot)" >>99の ' SubKeyNameString(3) = ["IE CompList", "IE.HKCUZoneInfo", "IE40.UserAgent"] は、キー値取得のための各値を定義して、実際に取得したもの。 2016.09に作成したダンプリストのために、現在の内容とは異なっている場合があるから、取得した。 もっとも、Subキーのリストが10000超えた場合もあったのはあせった。 10分ぐらい終了しなかったので、ハングしたのかな、と強制停止の処理を始めたら、終了した。 MSやその他法人が保存しているレジストリーの内容から、ユーザーとしてソフトを動かすために必要な情報を取得できるけれども、 何を使用するか、何を使用しないか、の取捨選択が迫られる。 分量の多さゆえに、このような検索ソフトを作成した。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/101
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.012s