VB2003でレジストリを格納する

2023/08/07 22:19

このQ&Aのポイント

VB2003でレジストリを格納するためには、RegCreateKeyExとRegSetValueExの関数を使用します。
問題点１：同じuser agentの下に`(既定)`が２つできてしまう。
問題点２：データが正しく書き込まれず、文字化けしたものが書き込まれている。VB2003ではどのように指定するのか、わかりませんでした。

ベストアンサー

VB2003でレジストリを格納する

2008/01/13 14:13

レジストリを格納するために、以下のように宣言し、 Private Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByVal Reserved As Integer, ByVal lpClass As String, ByVal dwOptions As Integer, ByVal samDesired As Integer, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As Integer, ByRef lpdwDisposition As Integer) As Integer Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal Reserved As Integer, ByVal dwType As Integer, ByRef lpData As String, ByVal cbData As Integer) As Integer Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Integer) As Integer 以下のようなコードで、ユーザーエージェントをmozillaからoperaへ（またはoperaからmozilla）書き換えようとしていますが、うまくいきません。問題点１.同じuser agentの下に”(既定)”が２つできてしまう問題点２.データが正しく(operaと)書き込まれず、文字化けしたものが書き込まれている。Ｃ言語用のサンプルやVB6.0のサンプルは見ますが、VB2003ではどのように指定するのか、わかりませんでした。 Dim ret As Long Dim hKey As Long, lngDisposition As Long Dim udt As SECURITY_ATTRIBUTES Dim myroot_key As String, mysub_key_user_agent As String, myName As String,StrValue As String myroot_key = &H80000002 '"HKEY_LOCAL_MACHINE"　を指定している mysub_key_user_agent ="Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent" myName = "(既定)" strValue="Opera" ret = RegCreateKeyEx(myroot_key, mysub_key_user_agent, 0&, vbNullString, _ 0, &H4 Or &H2, udt, hKey, lngDisposition) If ret = 0 Then ret = RegSetValueEx(hKey, myName, 0, 1, strValue, Len(strValue) + 1) RegCloseKey(hKey)

wakattatsu
お礼率28% (10/35)

Visual Basic
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

redfox63
ベストアンサー率71% (1325/1856)

2008/01/13 15:39 回答No.1

Registryクラスや RegistryKeyクラスを使ったほうが簡単かも参照設定としてファイルの冒頭で Imports Microsoft.Win32 を追加しますボタンのクリックイベントなどで Dim oRegKey as RegistryKey oRegKey = Registory.LocalMachine oRegKey = oRegKey("レジストリーパス",True) oRegKey.SetValue( Nothing,"opera") といった具合でよさそうですよ既定のデータを設定する場合 SetValueのName引数はNothingにするようです VB2005付属のヘルプで確認してみてください

関連するQ&A

RegQueryValueExwでエラー
お世話になります。 Declare Function RegQueryValueExString Lib "advapi32.dll" Alias _ "RegQueryValueExA"(ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByRef lpType As Integer, ByVal lpData As String, ByRef lpcbData As Integer) As Integer RegQueryValueExString(hKey, ValueName, 0, intType, strValue, intSize) この時、ValueNameに２バイト文字が含まれているとエラーになります。 VB 6.0の時は問題なく動いていました。ご存知の方ご教示お願いいたします。
- ベストアンサー
- Visual Basic
DLL VBとC++
VBAからVC++2005のDLLを呼び出すプログラムを書いています。 VB側で作成したcpp_proc関数を呼ぶとVBアプリ自体が落ちました。 DLLのreturnの直前に以下のMessageBoxで表示させるとそこまでは表示され、リターンを押すと、落ちました。 VB側の引数の値　String * 8192が悪いのでしょうか？ return直前まで動作していたので、DLLの戻り値に何か原因があるのでしょうか？ついでの質問ですが、DEFの @1は無くても動くのでしょうか？意味が知りたいです。 // ----- C++ (DLL側) ----- int __stdcall cpp_proc(LPCSTR inp, LPSTR out) { ... 省略 MessageBox(0, "ここまで通過", "debug", MB_OK); return 0; } // ----- DEF ----- LIBRARY "example" DESCRIPTION 'テスト' EXPORTS ; 明示的なエクスポートはここへ記述できます cpp_proc @1 '----- VB側 ----- Public Declare Function cpp_proc Lib "example.dll" _ (ByVal inp As String, ByRef out As String) As Integer Public Sub Test() Dim ret As Integer Dim inp As String Dim out As String * 8192 ret = cpp_proc(inp, out) MsgBox("ret=[" & Cstr(ret) & "]"); End Sub
- ベストアンサー
- C・C++・C#
ユーザー名の取得で
ユーザー名の取得がうまくいきません。どなたか教えて下さい。環境はVB.net 2003です。 '宣言部 Declare Ansi Function GetUserNameByDeclare Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer 'ソース内　　Const UNLEN As Integer = 256 　　Dim tusr As String 　　Dim ln As Integer 　　tusr = Space(UNLEN) 　　ln = Len(tusr) 　　GetUserNameByDeclare(tusr, ln) 　　strdir = "C:\Documents and Settings\" & tusr & "\My Documents" 上記、ユーザー名(tusr)は取得できるんですが、strdirのtusr以下の部分 "\My Documents" が削られてしまいます。どこが悪いんでしょう？よろしくお願いします。
- ベストアンサー
- Visual Basic
引数で戻り値を取得するプログラム
以下のように、引数で戻り値を取得するプログラムを書きたいのですがどのように書けば正しいでしょうか？ VB6とVB2005の両方の書き方を教えてください。 sub kekka(byval src as string, byref dst() as string) dim ret() as string ret(0) = "abc" ret(1) = "efg" kekka = ret end sub kekka("xxx", dat() ) msgbox(dat(0)) msgbox(dat(1))
- ベストアンサー
- Visual Basic
【VB2005】My.Computer.FileSystem について
My.Computer.FileSystem を使ってファイルを書込みたいと考えてます。書き込む変数ですが、さきに仮の値を代入します。 Structure gtypSaveData <VBFixedString(32)> Dim strValue1 As String <VBFixedString(32)> Dim strValue2 As String End Structure Dim datData(3, 3) As gtypSaveData Dim intCnt1 as Integer Dim intCnt2 as Integer For intCnt1 = 0 To 3 For intCnt2 = 0 To 3 datData(intCntPage, intCnt).strValue1=intCnt1 datData(intCntPage, intCnt).strValue2=intCnt2 Next intCnt2 Next intCnt1 次は、My.Computer.FileSystem をつかって "c:\datData.dat"の場所に、同名のファイルを作成したいと思ってます。ファイルの値はdatData()の中身です。書込み、読込み、両方のパターンの作り方が判りません。下記のサイトを参考にしても判りませんでした。【MSDN】ttp://msdn.microsoft.com/ja-jp/library/0b485hf7.aspx 貴重な時間、割いて貰って申し訳ないですが、教えてください。
- ベストアンサー
- Visual Basic
DLL<->VB間での受け渡し（文字列・ポインタ）
ＶＢで開発を行っていますが、ＤＬＬ＜－＞ＶＢでのやり取りでポインタ？のの引渡しで困っております。簡単に言うと、指定したキーで、内容（データ）を取出し、さらに要素ごとにデータを取出すという仕組みです。例ですが、ＤＬＬの仕様は TR_MR(No,Id,Buff) 　Noは検索No. 　Idは取出す位置　buffはデータバッファ領域のポインタで、Idで指定された位置からデータをbuffに読み込む（戻り値は、buffにセットされたデータのバイトサイズ） TR_MR_IT(buff,Tagset,Dat) buffは先ほど取り込んだデータバッファ領域のポインタ Tagsetは項目識別子のポインタ Datはデータ上の１項目の文字列と言う具合です。ＶＢでの宣言は =================================================== Private Type Tagset tagno As String * 3 Subf As String * 1 seq As Integer End Type Private Declare Function TR_MR Lib "tr.dll" (ByVal no As Integer, ByVal Id As Integer, ByVal buff As String) As Integer Private Declare Function TR_MR_IT Lib "tr.dll" (ByVal buff As String, ByRef tg As Tagset, ByVal dat As String) As Integer Dim buf_size As Integer Dim MR_buff As String MR_buff = String(65562, vbNullChar) buf_size = TR_MR(no, 1, MR_buff) Dim tg As Tagset Dim MR_size As Integer Dim MR_IT_buff As String tg.tagno = "001" tg.Subf = "A" tg.seq = 1 MR_IT_buff = String(12282, vbNullChar) MR_size = TR_MR_IT(MR_buff, tg, MR_IT_buff) =================================================== 長々と書いてしまいましたが、何か、助言をいただければ幸いです。
- ベストアンサー
- Visual Basic
VB .NetのDLL参照について
名前付パイプの処理をしているのですが、DLLが参照できません。 Public Class ClsJi01 　　Public Declare Function MakePipe Lib "\DLL\Point.DLL" (ByVal pipe_name As String, ByVal buf_size As Integer, ByVal max_instances As Short, ByVal hpipe As Integer, ByVal err_code As Integer) As Integer 　Public Sub M_Pipe() 　　Dim r As Integer 　　Dim rpipe As Integer 　　Dim err_code As Integer 　　r = MakePipe("\\.\pipe\RS04", 255, 16, rpipe, err_code) 　End Sub End Class Point.DLLは以前VB6.0の時に使用していたDLLで自作です。これで実行すると「オブジェクト参照がオブジェクトインスタンスに設定されていません。」と出ます。どうしたら良いのでしょうか？
- ベストアンサー
- Visual Basic
VB.NETで値や参照について　ByRefなど
VB.NETで値や参照について、まだ初学ですがよろしくお願いします。 VBは2008です。以下のようなs文字列を参照引数にしたSetDataメソッドがあります。 ByRef s As Stringという引数は、SetData内でsを書き換えると、呼び出したSetDataメソッド外でも中身が変わるので私のByRefの認識ではポインタと解釈しています。間違っているでしょうか？ SetData(1,1, buf)とすれば、DataGridViewの中は、「初期値」という文字が表示されます。別のメソッド（KaKikae）でbufを"あ"という文字に変えた場合、SetDataメソッドを使わなくても書き換わっていると思っていたのですが、実際実行してみると書き換わりません。値や参照について理解が足りないからだと思いますがわかりません。どのようにすれば、それが実現できるのでしょうか？ Public Class HogeClass Private buf As String = "初期値" Private Sub SetData(ByVal x As Integer, ByVal y As Integer, ByRef s As String) As Boolean Dim dg As DataGridView dg = DataGridView1 dg.Item(x, y).value = s End Sub Private Sub KaKikae() buf = "あ" End Sub End Class
- 締切済み
- Visual Basic
ＶＢ２０１０　ウィンドウタイトルを取得
こんにちはＶＢ学習を始めて２週間になりました。Ｗｅｂの記事などを参考にしていますがバージョンによって記述が変わって苦戦しています。今回ご質問したい内容です。ボタンを押すとメモ帳が起動されているか調べてそのウィンドウタイトルを得るウィンドウタイトルで検索してハンドルを取得してそのままそのハンドルで逆にウィンドウタイトルを得ています（無意味な処理ですが学習用という事で） Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim ECHandle As Integer Dim Titlename As String Titlename = vbNullString ECHandle = FindWindow(vbNullString, "無題 - メモ帳") GetWindowText(ECHandle, Titlename, 255) Label5.Text = Titlename If ECHandle = 0 Then Label4.Text = "取得できない" Else Label4.Text = "取得出来た" & ECHandle & Titlename End If End Sub 結果はというと Titlename が空っぽのままでタイトルが取得できませんどのような原因が考えられますでしょうか？よろしくお願いいたします。
- ベストアンサー
- Visual Basic
VB.NETのSendMessageを教えてください
SendMessageというAPIを試しているのですが、まず試しに Button2.Text = "test" と同じ結果をSendMessageでやってみたいのですが下のようにしてみたのですが、変更になりませんでした。どのようにすれば良いかご教授頂ければ幸いです。よろしくお願致します。 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer Private Const WM_SETTEXT As Integer = &HC Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim h As Integer h = Me.Button2.Handle.ToInt32 SendMessage(h, WM_SETTEXT, 0&, "test") End Sub VB.NET2003 FrameWork1.1 WindowsXP-PRO(SP2) です。
- ベストアンサー
- Visual Basic