none
為什麼這程式 沒辦法在 windows7 上使用呢!! RRS feed

  • 一般討論

  • Dim fli As String
    Private Sub Command1_Click()
    On Error Resume Next
    Dim dd As String
    Dim a
    fli = "c:\rr.txt"
    Open fli For Input As #1
    Do Until EOF(1)
    Input #1, dd
    a = Split(dd, "IP Address. . . . . . . . . . . . : ", -1, 1)
    Text1.Text = a(1)
    Loop
    Close #1
    End Sub
    Private Sub Form_Load()
    fli = "c:\rr.txt"
    If Dir(fli) = "" Then
    Shell "cmd /c ipconfig.exe >" & "c:\rr.txt", vbHide
    Else
    Kill fli
    Shell "cmd /c ipconfig.exe >" & "c:\rr.txt", vbHide
    End If
    End Sub
    這是抓取IP的程式
    我在XP上運作都很正常!!
    但是拿到 win7 就沒辦法用了!!
    win7都抓不到 IP!!
    有什麼方法 可以讓這程式 在win7上運作嗎!!?
     
    2011年6月29日 下午 05:27

所有回覆

  • 受限於UAC的關係

    寫入資料到 C:\ 必須以系統管理者的身分執行

    這段程式看起來是用VB6開發的

    如果可以請改用 VB.Net 開發

     


    先查MSDN文件庫
    再用GOOGLE搜尋
    才到論壇來發問

    這是論壇不是技術支援中心
    沒有人得無償解答你的問題

    在標題或文章註明很急
    不會增加網友回覆速度
    2011年6月29日 下午 05:56
  • 如前面所言,換個路徑如D:\;另外Split分割也要改...
    2011年6月29日 下午 09:45
  • 有什麼方法 可以提共一下嗎@@?
    2011年6月30日 上午 09:44
  • Private Sub Form_Load()
    fli = "D:\rr.txt"
    If Dir(fli) = "" Then
    Shell "cmd /c ipconfig.exe >" & "D:\rr.txt", vbHide
    Else
    Kill fli
    Shell "cmd /c ipconfig.exe >" & "D:\rr.txt", vbHide
    End If
    End Sub
    

    這樣有檔案輸出吧...

    2011年6月30日 上午 10:10
  • 有什麼方法 可以提共一下嗎@@?
    建一個自訂目錄 例如 C:\ABC , 然後將C:\ABC的目錄權限設定改一下, 改成users為完全控制, 把你要輸出的檔案路徑改到這邊就好了.

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。

    2011年6月30日 下午 04:16
    版主
  • 我試過這方法!!改到D 也是一樣不型ˊˋ
    2011年6月30日 下午 05:52
  • 你在Windows 7上有使用 "以系統管理員身份執行" 試試看嗎 ? 而且沒法運作是否有錯誤訊息 ? 若有, 請明白告知. 不然現在和通靈沒啥兩樣.
    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。
    2011年7月1日 上午 02:48
    版主