VB初心者質問スレPart2
635 ：デフォルトの名無しさん：
>>632
これでは不満か？
Option Explicit
Dim Wshshell As Object
Private Sub Form_Load()
Set Wshshell = CreateObject("WScript.Shell")
MsgBox "あなたのメアドは" + Wshshell.RegRead _
("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" + _
Wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account") + _
"\SMTP Email Address") + "ですね？"
End Sub
これでは不満か？
Option Explicit
Dim Wshshell As Object
Private Sub Form_Load()
Set Wshshell = CreateObject("WScript.Shell")
MsgBox "あなたのメアドは" + Wshshell.RegRead _
("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" + _
Wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account") + _
"\SMTP Email Address") + "ですね？"
End Sub
|
|
|