繁體瀏覽工具設為首頁收藏本站
 找回密碼 或 安全提問
 註冊
|註冊|登錄

伊莉討論區

搜索
尊貴會員無限使用任何功能尊貴會員無限下載附件儲值後自動升級用戶組
伊莉討論區 › 論壇 › 電腦資訊 › 電腦程式設計 › Visual Basic 語言 › 如何製做此登入檔修改器
cosplayfateoverlord中文中字鬼滅之刃自慰
ycancan林莎 okioverflow十連抽卡僕ママ×カーラ tssni 344
休閒聊天興趣交流學術文化旅遊交流飲食交流家庭事務PC GAMETV GAME
熱門線上其他線上感情感性寵物交流家族門派動漫交流貼圖分享BL/GL
音樂世界影視娛樂女性頻道潮流資訊BT下載區GB下載區下載分享短片
電腦資訊數碼產品手機交流交易廣場網站事務長篇小說體育運動時事經濟
上班一族博彩娛樂

(4月新番)[繁]格林童
晴天 體驗台灣特色檳
[繁]從Lv2開始開外掛

[繁]月光下的異世界之
(4月新番)[繁]終末的
(4月新番)[繁]THE NEW
C & C++ 語言C# 語言Visual Basic 語言PHP 語言JAVA 語言
返回列表發新帖

查看: 1548|回復: 3
打印上一主題下一主題

[求助]如何製做此登入檔修改器[複製鏈接]

n4chen

Rank: 2Rank: 2

帖子
269
積分
263 點
潛水值
30802 米
跳轉到指定樓層
樓主
發表於 2011-1-6 08:41 PM|只看該作者|倒序瀏覽
分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。
最近我做了此登入檔修改器:

程式碼 :
  1. Imports System.Text.RegularExpressions
  2. Public Class Form1
  3.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.         Dim a, b, c, d As Object
  5.         Dim x, y As String
  6.         Dim z As Integer
  7.         x = TextBox1.Text
  8.         y = TextBox2.Text
  9.         y = CInt(z)
  10.         a = RadioButton1
  11.         b = RadioButton2
  12.         c = RadioButton3
  13.         d = RadioButton4
  14.         TextBox1.Text.Replace("HKEY_LOCAL_MACHINE\", "")
  15.         If a.Checked = True Then
  16.             My.Computer.Registry.LocalMachine.CreateSubKey("" & x, z)
  17.         End If
  18.     End Sub
複製代碼


但我用了之後 新增不了 請大大幫我看哪裡錯了
而且程式碼裡的
TextBox1.Text.Replace("HKEY_LOCAL_MACHINE\", "")
也起不了做用 哪裡錯了嗎?

↑↑↑TextBox1.Text.Replace("HKEY_LOCAL_MACHINE\", "")無效

↑↑↑無法新增登入檔...
瀏覽完整內容，請先 註冊 或 登入會員
附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊
分享分享0收藏收藏0支持支持0
伊莉影片

使用道具檢舉

darkjack

  專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
38277 米
頭香
發表於 2011-1-6 09:53 PM|只看該作者
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。
套句 廣告詞, 黃秋生 拍可口可樂廣告
「給你個暢快」

這是我 寫的 驗證範例（砍掉一些) 但是一定能作為
  1.   Sub checkRegister()
  2.         '登入檔讀寫
  3.         'Dim sAns, sAns2 As String
  4.         Dim sErr As String = ""
  5.                Dim sAns, setdate As String

  7.         
  8.         Try


  11.             sAns = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", Nothing)

  13.             If sAns = Nothing Then

  15.                 My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
  16.             
  17.                
  18.                     End If
  19.                     'My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
  20.                     '寫入位置, 名稱,資料
  21.                 End If
  22.             End If
  23.             ' My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE", "MyLoader", setdate)
  24.         Catch ex As InvalidCastException
  25.             MsgBox("You are Fail")
  26.         End Try


  29.     End Sub
複製代碼
...
瀏覽完整內容，請先 註冊 或 登入會員
回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

n4chen

Rank: 2Rank: 2

帖子
269
積分
263 點
潛水值
30802 米
3樓
發表於 2011-1-6 11:19 PM|只看該作者
若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。
本帖最後由 n4chen 於 2011-1-6 11:24 PM 編輯

回復
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員
darkjack


謝謝您的程式碼
現在我的問題是
那要刪除TextBox 裡的 TextBox1.Text.Replace("HKEY_LOCAL_MACHINE\", "")
...
瀏覽完整內容，請先 註冊 或 登入會員
若有安裝色情守門員，可用無界、自由門等軟件瀏覽伊莉。或使用以下網址瀏覽伊莉: http://www.eyny.com:81/index.php

使用道具檢舉

darkjack

  專　家(12000/24000)

偶素程式設計下的產物「浻」

Rank: 5Rank: 5Rank: 5Rank: 5Rank: 5

帖子
1412
積分
17880 點
潛水值
38277 米
4樓
發表於 2011-1-7 09:59 AM|只看該作者
若登入不正常或變回訪客狀態，請先刪除COOKIE再登入。
給你參考一下
下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員


下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員


要取代的話 還是用我那個方式 去取代...

...
瀏覽完整內容，請先 註冊 或 登入會員
如果你忘記伊莉的密碼，請在登入時按右邊出現的 '找回密碼'。輸入相關資料後送出，系統就會把密碼寄到你的E-Mail。

使用道具檢舉

返回列表發新帖
高級模式
BColorImageLinkQuoteCodeSmilies
您需要登錄後才可以回帖 登錄 | 註冊

Powered by Discuz!

© Comsenz Inc.

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。 由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫 侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。
回頂部