【VB】VB读取EXE程序的ICO图标显示并保存

  • A+
所属分类:lcx

    VB读取EXE程序的ICO图标显示并保存为文件,VB读取EXE程序的ICO图标Picture显示,VB读取EXE程序的ICO图标显示,VB读取EXE程序ICO图标显示,VB读取 EXE ICO 图标 显示,VB读取 EXE ICO 图标 显示,VB读取 EXE ICO 图标,VB读取 EXE ICO,VB提取EXE程序的ICO图标显示并保存为文件,VB提取EXE程序的ICO图标Picture显示,VB提取EXE程序的ICO图标显示,VB提取EXE程序ICO图标显示,VB提取 EXE ICO 图标 显示,VB提取 EXE ICO 图标 显示,VB提取 EXE ICO 图标,VB提取 EXE ICO,VB提取 EXE 图标,VB读取EXE程序的ICO图标保存为文件,VB读取EXE程序图标保存为文件,VB读取EXE程序ICO保存为文件,VB读取EXE程序图标保存,VB读取EXE程序ICO保存,VB读取EXE图标保存,VB读取EXE ICO保存,VB提取EXE程序的ICO图标保存为文件,VB提取EXE程序图标保存为文件,VB提取EXE程序ICO保存为文件,VB提取EXE程序图标保存,VB提取EXE程序ICO保存,VB提取EXE图标保存,VB提取EXE ICO保存,VB ExtractIcon,VB DrawIcon,ExtractIcon(App.hInstance, "c:a.exe", 0),VB SavePicture ico

VB读取EXE程序的ICO图标显示并保存:

Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Sub Command1_Click()
Dim lngIcon
    lngIcon = ExtractIcon(App.hInstance, "c:a.exe", 0)
    If lngIcon = 0 Then
        MsgBox "获取图标错误"
        Exit Sub
    Else
        Picture1.Cls
        Picture1.Picture = LoadPicture()
        Picture1.AutoRedraw = True
        DrawIcon Picture1.hdc, 0, 0, lngIcon
        Picture1.Refresh
        SavePicture Picture1.Image, "d:test.ico"
    End If
End Sub

VB PictureBox保存为图片:SavePicture Picture1.Image, "c:a.bmp"

文章来源于lcx.cc:【VB】VB读取EXE程序的ICO图标显示并保存

相关推荐: 求科普:如何盗刷银行卡?

求科普:如何盗刷银行卡? 鬼五 (万般努力,只为心中那个梦) | 2015-01-20 19:08 http://zone.wooyun.org/content/18156,看到了这篇帖子,感觉也是挺震惊的。 个人对信用卡,银行卡,套现,之类的东西以及业务流程…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: