变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

東坡下載：內容最豐富最安全的下載站！

幫助|文件類型庫|最新更新|下載分類|排行榜

搜索查詢電子工業辦公軟件壓縮解壓轉換翻譯時鐘日歷文檔管理電子閱讀漢字輸入文字處理刪除恢復計算器

首頁 → 應用軟件 → 應用其他 → VB改變名稱列表高度 1.0 綠色版【附源碼】

VB改變名稱列表高度

VB改變名稱列表高度1.0 綠色版【附源碼】

  • 大小：10KB
  • 語言：中文
  • 平臺：WinAll
  • 更新：2015-12-23 10:43
  • 等級：
  • 類型：應用其他
  • 網站：http://www.astro-tech.com.cn
  • 授權：免費軟件
  • 廠商：
  • 產地：國產軟件
好用好玩 50%(0)
坑爹 坑爹 50%(0)
軟件介紹軟件截圖相關軟件軟件教程網友評論下載地址

VB的下拉列表框很短，用起來很不爽有木有？這里，小編給大家帶來一款小工具，可以加長VB命名列表框，主要是利用OllyDBG跟蹤改了它，附源碼。需要的朋友可以下載試試哦！

VB6加長命名列表框工具怎么用

VB改變名稱列表高度使用說明

下載解壓后，可以直接運行此軟件，選擇VB6的目錄，點擊【開始更換即可】

注意：軟件上的相關備份事宜也說的很清楚，到時候要還原就按照說明來做就OK了。

VB加長名稱：

NameListWndClass

0x0FBAC4B1

0x0011BAA7  20

offset 0x11BAB1

原：83C704

新：6BFF04

offset 0x11BAA4

舊：0F AF 7D F8

新：6b ff 1c 90

下面是源代碼內容：

Option Explicit


Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long


Private VBA6Path As String


Private Sub Form_Load()

        App.TaskVisible = False

        'On Error Resume Next

        Dim VBPath As String

        VBPath = GetSetting(App.Title, "Set", "VBInstallPath")

        If VBPath = "" Then VBPath = "C:\Program Files\Microsoft Visual Studio\VB98"

        VBA6Path = VBPath & "\VBA6.DLL"

        txtPath.Text = VBPath

        UpdateStatus

End Sub



Private Sub cmdOk_Click(Index As Integer)

        'On Error Resume Next

        Dim strPath     As String

        Dim strPathSrc  As String

        Dim VerNumber   As String

        strPath = txtPath.Text

        

        If FileExist(strPath & "\VBA6.DLL") = False Then

                MsgBox "指定目錄無效，找不到VBA6.DLL。", vbExclamation

                Exit Sub

        End If

        

        SaveSetting App.Title, "Set", "VBInstallPath", strPath

        If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

        strPath = strPath & "VBA6.DLL"

        strPathSrc = strPath & ".bak"

        VBA6Path = strPath

        

        'Debug.Print VerNumber

        If IsVersionError Then

                MsgBox "不支持此版本。請確定是否是VB6簡體中文版/企業版，以及VBA6版本是否為6.0.0.8169", vbExclamation

                Exit Sub

        End If

        If Index = 0 Then

                '換

                If FileExist(strPathSrc) = False Then

                        CopyFile strPath, strPathSrc, False

                End If

                If ModifyNameList = False Then

                        MsgBox "修改失敗，如果VB正在運行請先退出，否則確定是否有權限改寫目標文件。", vbExclamation

                Else

                        MsgBox "成功更改NameList高度。", vbInformation

                End If

        Else

                '還原

                If ModifyNameList(True) Then

                        MsgBox "取消成功。", vbInformation

                Else

                        MsgBox "取消失敗，請確認VB沒有運行，否則請直接還原文件。", vbExclamation

                End If

        End If

        UpdateStatus

End Sub


Sub UpdateStatus()

        If IsModified Then

                cmdOk(0).Enabled = False

                cmdOk(1).Enabled = True

        Else

                cmdOk(0).Enabled = True

                cmdOk(1).Enabled = False

        End If

End Sub


Private Function FileExist(strPath As String) As Boolean

        On Error Resume Next

        If PathFileExists(strPath) Then

                FileExist = ((GetAttr(strPath) And vbDirectory) = 0)

        End If

End Function


Private Function ModifyNameList(Optional ByVal bRestore As Boolean) As Boolean

        On Error GoTo ErrCatch

        Dim bytFile(0 To 3) As Byte

        If bRestore = False Then

                bytFile(0) = &H6B 'IMUL EDI,EDI,0x1C (EDI=14是Listbox行高，1440x900下我們設置成28行。)

                bytFile(1) = &HFF

                bytFile(2) = &H1C

                bytFile(3) = &H90 'NOP

        Else

                bytFile(0) = &HF  'IMUL EDI,[EBP-0x8] (Height=14x7+4)

                bytFile(1) = &HAF

                bytFile(2) = &H7D

                bytFile(3) = &HF8

        End If

        Open VBA6Path For Binary As #1

                Put #1, &H11BAA4 + 1, bytFile

        Close #1

        ModifyNameList = True

        Exit Function

ErrCatch:

        Close

End Function


Private Function IsModified() As Boolean

        On Error GoTo ErrCatch

        If FileExist(VBA6Path) = False Then IsModified = False: Exit Function

        Dim curValue As Long

        Dim oldValue As Long

        oldValue = &HF87DAF0F

        Open VBA6Path For Binary Access Read As #1

                Get #1, &H11BAA4 + 1, curValue

        Close #1

        IsModified = (curValue <> oldValue)

        Exit Function

ErrCatch:

        Close

End Function


Private Function IsVersionError() As Boolean

        On Error Resume Next

        Dim curValue As Long

        'Debug.Print VBA6Path

        Open VBA6Path For Binary Access Read As #1

                Get #1, &H11BAA4 + 1, curValue

        Close #1

        IsVersionError = (curValue <> &HF87DAF0F And curValue <> &H901CFF6B)

End Function

PC官方版
安卓官方手機版
IOS官方手機版

VB改變名稱列表高度截圖

下載地址

VB改變名稱列表高度 1.0 綠色版【附源碼】

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)

編輯推薦

報錯

請簡要描述您遇到的錯誤，我們將盡快予以修正。

轉帖到論壇
輪壇轉帖HTML方式

輪壇轉帖UBB方式

主站蜘蛛池模板： 亚洲 欧美 日韩在线综合福利 | 欧美一欧美一区二三区性 | 狠狠澡| 国产精品入口麻豆免费观看 | 国产精品成人一区二区1 | 亚洲一区二区三区香蕉 | 好男人午夜www视频在线观看 | 日韩欧美亚洲另类 | 成人短视频在线 | 亚洲成人精品在线 | 免费在线不卡视频 | 国产欧美日韩成人 | 日韩欧美第一页 | 老司机午夜免费 | 老司机精品99在线播放 | 2019偷偷狠狠的日日 | 亚洲 欧美 日韩在线综合福利 | 国产无遮挡床戏视频免费 | 日本黄色免费一级片 | 欧美video巨大粗暴多人 | 亚洲国产精品毛片∧v卡在线 | 亚洲欧美高清视频 | 日本黄色录像 | 麻豆va在线精品免费播放 | 国产日韩欧美综合在线 | 婷婷人人爽人人做人人添 | 欧美日韩一区二区三区在线播放 | 欧美亚洲另类色国产综合 | 欧美中文字幕在线看 | 精品国产免费福利片 | 夜夜爽免费视频 | 国精品午夜dy8888狼人 | 小明免费看看 | 国产特级全黄一级毛片不卡 | 成人三级精品视频在线观看 | 成人黄色免费网址 | 免费91最新地址永久入口 | 免费一级特黄欧美大片勹久久网 | 加勒比精品久久一区二区三区 | 黄色午夜 | 2019天天操天天干天天透 |