dialog.frm

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

VERSION 5.00
'Object Offset: 5729
Begin VB.Form Dialog
     Caption = "     ScaleMode = 1  ' GuiOpcode: 25 Offset Dec: 17779
     WhatsThisButton = 0  ' GuiOpcode: 66 Offset Dec: 17782
     BorderStyle = 3  ' GuiOpcode: 34 Offset Dec: 17784
     LinkTopic = "Form1"  ' GuiOpcode: 36 Offset Dec: 17791
     MaxButton = 0  ' GuiOpcode: 38 Offset Dec: 17800
     MinButton = 0  ' GuiOpcode: 39 Offset Dec: 17802
     ClientLeft = 2760
     ClientTop = 3750
     ClientWidth = 6120
     ClientHeight = 3510
     ShowInTaskbar = 0  ' GuiOpcode: 68 Offset Dec: 17821
     'Object Offset: 17824
     Begin VB.TextBox Text4
          Left = 1800
          Top = 360
          Height = 375
          Width = 3975
          Text = "Text4"  ' GuiOpcode: 11 Offset Dec: 17848
          TabIndex = 8  ' GuiOpcode: 18 Offset Dec: 17857
     End
     'Object Offset: 17861
     Begin VB.TextBox Text3
          Left = 1800
          Top = 2160
          Height = 375
          Width = 3975
          Text = "Text3"  ' GuiOpcode: 11 Offset Dec: 17885
          TabIndex = 4  ' GuiOpcode: 18 Offset Dec: 17894
     End
     'Object Offset: 17898
     Begin VB.TextBox Text2
          Left = 1800
          Top = 1560
          Height = 375
          Width = 3975
          Text = "Text2"  ' GuiOpcode: 11 Offset Dec: 17922
          TabIndex = 3  ' GuiOpcode: 18 Offset Dec: 17931
     End
     'Object Offset: 17935
     Begin VB.TextBox Text1
          Left = 1800
          Top = 960
          Height = 375
          Width = 3975
          Text = "Text1"  ' GuiOpcode: 11 Offset Dec: 17959
          TabIndex = 2  ' GuiOpcode: 18 Offset Dec: 17968
     End
     'Object Offset: 17972
     Begin VB.CommandButton CancelButton
          Caption = "          Left = 4200
          Top = 2880
          Height = 375
          Width = 1215
          TabIndex = 1  ' GuiOpcode: 17 Offset Dec: 18011
     End
     'Object Offset: 18015
     Begin VB.CommandButton OKButton
          Caption = "          Left = 600
          Top = 2880
          Height = 375
          Width = 1215
          TabIndex = 0  ' GuiOpcode: 17 Offset Dec: 18050
     End
     'Object Offset: 18054
     Begin VB.Label Label4
          Caption = "IP ADDRESS URL"  ' GuiOpcode: 1 Offset Dec: 18070
          Left = 240
          Top = 360
          Height = 375
          Width = 1335
          TabIndex = 9  ' GuiOpcode: 18 Offset Dec: 18097
     End
     'Object Offset: 18101
     Begin VB.Label Label3
          Caption = "PASSWROD"  ' GuiOpcode: 1 Offset Dec: 18117
          Left = 240
          Top = 2160
          Height = 375
          Width = 1335
          TabIndex = 7  ' GuiOpcode: 18 Offset Dec: 18138
     End
     'Object Offset: 18142
     Begin VB.Label Label2
          Caption = "USER NAME"  ' GuiOpcode: 1 Offset Dec: 18158
          Left = 240
          Top = 1560
          Height = 375
          Width = 1335
          TabIndex = 6  ' GuiOpcode: 18 Offset Dec: 18180
     End
     'Object Offset: 18184
     Begin VB.Label Label1
          Caption = "WINDOW NAME"  ' GuiOpcode: 1 Offset Dec: 18200
          Left = 240
          Top = 960
          Height = 375
          Width = 1455
          TabIndex = 5  ' GuiOpcode: 18 Offset Dec: 18224
     End
End

'Generated by VB Decompiler