form1.frm

联通手机短信发送器,有兴趣的朋友可以拿去研究。

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "msinet.ocx"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "联通手机短信发送器"
   ClientHeight    =   4575
   ClientLeft      =   45
   ClientTop       =   405
   ClientWidth     =   6990
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4575
   ScaleWidth      =   6990
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text3 
      Height          =   270
      Left            =   3600
      TabIndex        =   5
      Top             =   120
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   3615
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   4
      Top             =   840
      Width           =   6735
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1200
      TabIndex        =   3
      Text            =   "130"
      Top             =   120
      Width           =   1695
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   5400
      Top             =   1320
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "Form1.frx":08CA
      Left            =   5400
      List            =   "Form1.frx":08D4
      TabIndex        =   1
      Text            =   "Combo1"
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "发送"
      Height          =   255
      Left            =   2520
      TabIndex        =   0
      Top             =   480
      Width           =   4335
   End
   Begin VB.Label Label5 
      BackStyle       =   0  'Transparent
      Caption         =   "性别"
      Height          =   255
      Left            =   4920
      TabIndex        =   9
      Top             =   160
      Width           =   375
   End
   Begin VB.Label Label3 
      BackStyle       =   0  'Transparent
      Caption         =   "姓名："
      Height          =   255
      Left            =   3000
      TabIndex        =   8
      Top             =   160
      Width           =   615
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "请输入发送内容："
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   600
      Width           =   1455
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "输入手机号："
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   160
      Width           =   1095
   End
   Begin VB.Label Label4 
      Caption         =   "Label1"
      Height          =   255
      Left            =   600
      TabIndex        =   2
      Top             =   3840
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long

Private Sub Command1_Click()
          my0 = Combo1.Text
          If my0 = "先生" Then my00 = "0"
          If my0 = "小姐" Then my00 = "1"
          my1 = Text1.Text
          n1 = lstrlen(my1 + Chr(0))
          my2 = Text2.Text
          n2 = lstrlen(my2 + Chr(0))
          my3 = Text3.Text
            
            
          If my1 = "" Or my2 = "" Or my3 = "" Or n1 < 10 Then
                  MsgBox "没填写完整或填写有误！", vbExclamation, "出错"
          ElseIf Left(my1, 3) <> "130" Or n2 > 100 Then
                  MsgBox "只能发130短信息，且发送内容不超过50个中文", vbExclamation, "出错"
          Else
                  Command1.Enabled = False
                  Form1.Caption = "连接中...."
                  Inet1.Protocol = icHTTP
                  Inet1.Execute "http://sms.szunicom.com/cgi-bin/tims/webgsm?gsm_no=" & my1 & "&mobile_type=C&firstname=" & my3 & "&title=" & my00 & "&message=" & my2, "get"
          End If
  End Sub
    
  Private Sub Form_Load()
          Combo1.ListIndex = 0
  End Sub
    
  Private Sub Inet1_StateChanged(ByVal State As Integer)
    
            Select Case State
            Case icHostResolvingHost
            Form1.Caption = "连接中...."
            Case icConnecting
            Form1.Caption = "连接中...."
            Case icError
            MsgBox "连接出错:无法连结", vbExclamation, "出错"
            Form1.Caption = "短消息发送(130)"
            Text1.Text = "130"
            Text2.Text = ""
            Text3.Text = ""
            Command1.Enabled = True
              
            Case icResponseCompleted
            Form1.Caption = "短消息发送(130)"
            MsgBox "短消息发送成功!", vbExclamation, "恭喜!"
            Command1.Enabled = True
            Text1.Text = "130"
            Text2.Text = ""
            Text3.Text = ""
            End Select
              
            
          End Sub
    
    
  Private Sub Label4_Click()
          Dim HyperJump
          Dim w
          w = "mailto:" & Label4.Caption
          HyperJump = ShellExecute(0&, vbNullString, w, vbNullString, vbNullString, vbNormalFocus)
  End Sub