掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
取得方法 (ID：104200)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こうして下さい。 １．Ｉｎｅｔコントロールの参照設定をする。 ２．フォームにＩｎｅｔコントロールとテキストコントロールを貼り付ける。 ３. 下のコードを貼り付ける。 Private Sub Form_Load() Dim str1() As String Dim str2() As String Dim i As String Form1.Visible = False Text1.Text = "" Inet1.URL = "http://taruo.net/e/" Text1.Text = Inet1.OpenURL str1 = Split(Text1.Text, " ") Text1.Text = str1(51) str2 = Split(Text1.Text, "-") MsgBox "Your IP adress is " & str2(0) Unload Me End Sub 以上。 あなたはＣＧＩがお嫌いなようですが、何か嫌な事でもあったんですかね。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.