mainfrma.frm

通过此程序可以得到TP LINK路由器上外网的IP地址,其他则不行

VERSION 5.00
'Object Offset: 5729
Begin VB.Form MainFRMA
     Caption = "GetIP"  ' GuiOpcode: 1 Offset Dec: 5747
     WindowState = 2  ' GuiOpcode: 10 Offset Dec: 5756
     ScaleMode = 1  ' GuiOpcode: 25 Offset Dec: 5758
     WhatsThisButton = 0  ' GuiOpcode: 66 Offset Dec: 5761
     LinkTopic = "Form1"  ' GuiOpcode: 36 Offset Dec: 5768
     ClientLeft = 165
     ClientTop = 735
     ClientWidth = 7470
     ClientHeight = 5655
     StartUpPosition = 3  ' GuiOpcode: 70 Offset Dec: 5794
     'Object Offset: 5797
     Begin MSComctlLib.StatusBar MyStatusBar 'Length:300
     End
     'Object Offset: 6098
     Begin VB.Timer Timer3
          Interval = 60000  ' GuiOpcode: 3 Offset Dec: 6114
          Left=960
          Top=3480
     End
     'Object Offset: 6130
     Begin MSMAPI.MAPIMessages MAPISend 'Length:859
     End
     'Object Offset: 6990
     Begin MSMAPI.MAPISession MAPISeSend 'Length:600
     End
     'Object Offset: 7591
     Begin VB.Timer Timer2
          Interval = 10000  ' GuiOpcode: 3 Offset Dec: 7607
          Left=720
          Top=2640
     End
     'Object Offset: 7623
     Begin VB.Timer Timer1
          Interval = 50  ' GuiOpcode: 3 Offset Dec: 7639
          Left=1920
          Top=2760
     End
     'Object Offset: 7655
     Begin SHDocVwCtl.WebBrowser WebB 'Length:215
     End
     'Object Offset: 7872
     Begin VB.Menu FL
          Caption = "&File"  ' GuiOpcode: 3 Offset Dec: 7884
     End
     'Object Offset: 17749

'Generated by VB Decompiler
Sub SendMail()
End Sub