B4A 手机客户端源码

Region Project Attributes

#ApplicationLabel: 手机扫码枪
#VersionCode: 1
#VersionName: vb小源码
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

End Region

Region Activity Attributes

#FullScreen: False
#IncludeTitle: True

End Region

Region Project Attributes

Sub Process_Globals Dim Socket1 As Socket Dim AStreams As AsyncStreams

End Sub

Sub Globals Dim qr As cls_qr Private txt_ip As EditText Private txt_prot As EditText Private txt_res As EditText Private bt_cn As Button Private bt_send As Button Private bt_qr As Button Private lv_res As ListView End Sub

Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") qr.Initialize '---------------------------- lv_res.FastScrollEnabled=True lv_res.SingleLineLayout.ItemHeight=30dip lv_res.ScrollingBackgroundColor = Colors.Transparent lv_res.SingleLineLayout.Label.TextSize = 15 lv_res.SingleLineLayout.Label.TextColor = Colors.Black lv_res.SingleLineLayout.Label.Gravity = Gravity.CENTER '-------------------------- Activity.AddMenuItem("关于","about_app") Activity.AddMenuItem("退出","exit_app") '-------------------------- CN_SERVER End Sub Sub Socket1_Connected (Successful As Boolean) If Successful Then ToastMessageShow("连接成功!", False) AStreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams") Else ToastMessageShow("未启动服务器!", False) End If End Sub Sub AStreams_NewData (Buffer() As Byte) '接收来自服务端的字节 Dim msg As String msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8") ToastMessageShow(msg, False) End Sub Sub send_data(str As String) '向服务端发送字节 If AStreams.IsInitialized = False Then Return If str.Length > 0 Then Dim buffer() As Byte Dim data As String data = str & CRLF buffer = data.GetBytes("UTF8") AStreams.Write(buffer) End If End Sub

Sub exit_app_click ExitApplication End Sub Sub about_app_click Msgbox("本程序由VB小源码开发调试,有问题请向微信公众号后台反馈!或者向QQ群:344402874","VB小源码") End Sub

Sub join_data(str As String) txt_res.Text=str lv_res.AddSingleLine(str) End Sub

Sub CN_SERVER '绑定IP端口 Socket1.Initialize("Socket1") Socket1.Connect(txt_ip.Text, txt_prot.Text,10000) End Sub

Sub AStreams_Error '返回错误信息 ToastMessageShow(LastException.Message, True) End Sub

Sub Activity_Pause(UserClosed As Boolean) If UserClosed Then AStreams.Close Socket1.Close End If End Sub

Sub bt_cn_Click CN_SERVER End Sub

Sub bt_send_Click send_data(txt_res.Text) End Sub

Sub bt_qr_Click qr.QR_OPEN End Sub