reg作为vb资源文件的问题

该回复于2011-11-29 09:34:42被管理员删除

Private Sub Form_Load()
    Dim byREG() As Byte
    byREG = LoadResData(101, "CUSTOM")
    Open "c:\11.reg" For Binary As #1
    Put #1, 1, byREG
    Close #1
    Shell "reg import c:\11.reg"
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Kill "c:\11.reg"
End Sub