˹á
 úҹ
  C/C++ new
  Java new
 Sourcecode.TV
  Android
  Blackberry
  C/C++
  Java
  Linux
  Windows Phone
  ͧͧ
 
  .NET
  Android
  Blackberry
  C++Builder
  Delphi
  Java
  Mobile
  Open Source
  Pocket PC
  Visual Basic
  Web
  Windows Phone
  Others
 Ẻ¹
  ASP
  ASP.NET Webmatrix
  C++
  eVB
  J2ME
  Java
  PHP
 
  Android
  ASP
  C++
  VC++
  CGI-Perl
  Delphi
  Java
  jQuery
  PHP
  Visual Basic
  .NET
 ԡèҡ
  Դ...
  DoodeeHosting
  Ѻ͡Ẻ Ѳ䫵
  Freeware
  ѵҤɳ
  ª١
  ʶԵԼ
 Ŵ
 Ң
 дҹʹ
  .NET
  C/C++
  Delphi
  Java
  Palm/PocketPC
  Visual Basic
  Web
 
 дҹҹ
 ԧ
 ǡѺ
 ѵҤɳ
Social Network

Facebook  Twitter  YouTube
 New Article
 Webboard
 Freelanceboard
Freeware
 (BerDee)
(Android)
駩غ
駩غ(Android)
WebcamMonitor
WebcamMonitor(Windows)
scSendMail
scSendMail(Windows)
MSN Caption
MSN Caption(Windows)
  Freelance comment
  ԴͺʹФѺ...
2015-07-29 13:35:58
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:33:54
  Ҽͧ纷ѲҴ HTML5 ...
2015-01-18 15:32:51
  ԴͺФѺ
ҹ...

2014-01-06 12:47:38
  ѧҤ͹ ͧ֡ͧ...
2013-07-06 01:04:37
  ʹ觢ͺࢵҤҤҡ͹ФѺ...
2013-03-24 18:54:20
  ѧդѺҹԴѺ 08...
2012-12-16 19:18:14
  ʹ㨤 Դ 0905076277...
2012-11-12 11:07:46
  Ѻ礹ѡ֡ͺѷ
...

2012-10-29 03:10:46
  sukit_te34@hotmail.com...
2012-10-29 03:09:36
  Webboard comment
  [url=http://crystal-design....
2017-05-27 11:15:19
  [url=https://w-shop.cc/]...
2017-05-27 02:56:47
  ੾зҧҴ ͧҢ...
2017-05-25 16:18:08
  ͧ˹Ѻ os ...
2017-05-25 16:12:47
  ¹ php curl ...
2017-04-20 01:04:20
  ¹ ...
2017-03-27 12:50:54
  ʧҷ ͧѾഷ...
2017-03-27 12:37:20
  ͺõͺ...
2017-02-22 13:10:24
  ͧաԸ¹ recursive f...
2017-02-14 13:11:03
  ҡ кͧشҡ...
2017-01-30 11:45:28
  Homework comment
  ͧ ͧ ѧ ^^...
2017-04-18 18:40:46
  ͧ ͧ ѧ ^^...
2017-04-18 18:37:54
  á flowchart ѹ...
2017-04-18 17:43:33
  ҡ flowchart ...
2017-04-18 16:25:29
  kungking ӶäѺ ?...
2017-03-18 23:28:36
  ¹ʴͧ...
2017-03-06 10:56:25
  鴷ӧҹẺ ...
2016-09-06 01:00:12
  ҡҺ鴹Ѻѧ...
2016-09-05 09:31:27
  ͧ֡¹...
2016-04-22 00:47:49
  ἹѧͧѺѡ...
2016-04-21 19:24:55
  Article comment
  Ѻ س "Դ" ͧ֡...
2016-06-18 15:21:09
  vs2008 c# Ѻ ͺسѺ...
2016-06-17 14:39:30
  vs c# ӵآ鹵͹...
2016-06-17 14:37:44
  ͧѺ "Ҩԧ ...
2016-03-12 23:36:05
  觢ͤǧ LAN ੾Ф...
2016-03-12 18:25:42
  Terminal Mac ...
2016-02-16 11:02:01
  Terminal ͤ...
2016-02-16 05:58:21
  仵 ç¤Ѻ
2016-01-25 13:29:55
  ǹ!!! ͧä¹ App ...
2016-01-25 10:56:34
  ӵйӨش...
2016-01-20 23:30:25
  9Mcode comment
  ҡ...
2014-02-21 08:52:19

Link Exchange

ѵҤɳ
Statistics of Sourcecode in Thailand
 
 eMbedded Visual Basic Tutorial  

- - - - - - - - - - - - - - ʹѺʹع- - - - - - - - - - - - - -

 eMbedded Visual Basic
 
 

6 觢ͤҹ SMS

 

SMS (Short Message Service) 繺ԡ÷¡èѴ觢ͤҹҧͶ Ͷաͧ 㹻Ѩغѹ ١Ѵ繡÷Ѻѹҧ٧֧ աûء㹴ҹҧ SMS ҹҧ䫵 СʴԴ繼ҹ SMS ˹Ҩ¡Ѿ

ѺþѲѺػó Pocket PC 2002 öѾ¹ سöѲ Pocket PC ͧسö SMS سͧ µҧ 繡ҧ˹ҵҧСͺªͧѺŢѾͶͻ·ҧ ͧ觢ͤ SMS 件֧ ¨ٻẺͧŢѾҧȨѡɳ

+<ʻ><Ţ͢><ŢѾ>

Ѻ¹鹨 ʻ Ţ 66 ШŢ͢µ 01 ֧ 09 ¤سеͧӡõѴŢ 0 ͡ ҧ سͧè SMS Ţ 01-3042109 ѧ鹤سеͧ͹ŢѾͶͷͧ觤 +6613042109 Ըա÷Ңҧ鹨Ѻ SMS ѧŢͧҧ ҡسкʻŢ١ͧ ͡ҡԸաкŢѾѧ سö͹Ţ繵ͧкʻ 013042109 SMS 㹻

ͧСͺͧաǹ ͧժͧ Ѻͤ 觵͡˹ͧ SMS ö٧ش 160 ѡ سͧ¹͵Ǩͺ ӹǹͧͤ ͹觢ͤҹ SMS ͧѺͤԹ 160 ѡҹ 㹵ҧ

Ѻ㹵ҧ öʴš÷ӧҹҹҧ Emulator ˵ؼšͧҨҡ Emulator ժش SMS Ҵ ѧ鹤سеͧӡþѲǹҧ繵ǵԴ (ҹ ҧԴ ) й价ͺͧ Pocket PC кѾ㹵ҹ

DownloadǹŴ

͡Ẻ˹ҵ

  • ӡԴ eVB ҹҧ Start->Programs->Microsoft eMbedded Tools->eMbedded Visual Basic 3.0
  • ԡ͡ File->New Project ͡ Ctrl+N лҡ˹ҵҧ ӡ͡ Windows CE for Pocket PC 2002 Ǥԡ OK

ٻʴ ͡ҧ Project
ٻʴ ͡ҧ Project

  • ӡҧ ͹ŵҧ 觻Сͺ Textbox 2 ѹ CommandButton 1 ѹ ѧٻ

ٻʴ ҧ͹ŵҧ麹
ٻʴ ҧ͹ŵҧ麹

  • ԡ͡͹е зӡ¹ Property ҧҹҧ
Control Property Value
CommandButton Name cmdSend
  Caption Send SMS
TextBox1 Name txtNumber
  Text 013042109
TextBox2 Name txtMessage
  Text  
  MultiLine True
  • šá˹ Property ѧٻ

ٻʴ ŷҡá˹ Property Ѻ
ٻʴ ŷҡá˹ Property Ѻ

(Module) API ͧ SMS

Ѻ㹢鹵͹зӡ ͨ㹡ûСȵ÷Ǣͧ пѧ API (Application Programming Interface) ¡ҹ Ѻ API ԸաûС ѧ¡觢ͧк 㹵ҧ 繡¡ API Ѻ SMS 鹵͹㹡ҧŨҡ

  • ԡ͡ Project->Add Module лҡ˹ҵҧ Add Module سԡ Open س˹ҵҧ Ѻ͹ ǹͧ ѧٻ

ٻʴ ˹ҵҧͧ
ٻʴ ˹ҵҧͧ

ٻʴ ¡ ਤ
ٻʴ ¡ ਤ

  • ѧࡵǹͧ Property ö¹ͧ͢ ͧ
  • ӡû͹ ҧŧǹͧ
Option Explicit

Public Declare Function SmsOpen Lib "SMS" _
        (ByVal ptsMessageProtocol As String, _
        ByVal dwMessageModes As Long, _
        ByRef psmshHandle As Long, _
        ByRef phMessageAvailableEvent As Long) As Long
Public Declare Function SmsSendMessage Lib "SMS" _
        (ByVal smshHandle As Long, _
        ByVal psmsaSMSCAddress As Long, _
        ByVal psmsaDestinationAddress As String, _
        ByVal pstValidityPeriod As Long, _
        ByVal pbData As String, _
        ByVal dwDataSize As Long, _
        ByVal pbProviderSpecificData As String, _
        ByVal dwProviderSpecificDataSize As Long, _
        ByVal smsdeDataEncoding As Long, _
        ByVal dwOptions As Long, _
        ByRef psmsmidMessageID As Long) As Long
Public Declare Function SmsClose Lib "SMS" _
        (ByVal smshHandle As Long) As Long
  
Public Const SMS_MSGTYPE_TEXT = "Microsoft Text SMS Protocol"
Public Const SMS_MODE_SEND = 2            ' Open in send mode
Public Const SMSDE_GSM = 2                ' Use standard GSM  encoding
Public Const SMSAT_INTERNATIONAL = 66      ' International number  Format
Public Const PS_MESSAGE_OPTION_NONE = 0   ' No message options
Public Const PS_MESSAGE_CLASS0 = 0        ' Send immediately
Public Const PSRO_NONE = 0                ' No replacements
Public Const SMS_OPTION_DELIVERY_NONE = 0 ' No delivery options
  

'******************************************************************************
' Implements UDT value conversion functions
'******************************************************************************
' FileName:  basUDTConv.bas
' Creator:   Christian Forsberg
' Created:   2002-06-06
'******************************************************************************
' Version   Date   Who Comment
' 00.00.000 020606 CFO Created
'******************************************************************************

Function LongToBytes(ByVal Value As Long) As String
  
' Convert long value to string of bytes.
' IN:  Value, long value
' OUT: LongToBytes, string with long value converted to bytes
' Known bugs:
' Version   Date   Who Comment
' 00.00.000 020606 CFO Created
'******************************************************************************
  Dim lsHex As String, i As Integer
  
  lsHex = Right("00000000" & Hex(Value), 8)
  For i = 1 To 7 Step 2
    LongToBytes = ChrB(CInt("&H" & Mid(lsHex, i, 2))) & LongToBytes
  Next

End Function
Function BytesToLong(ByVal Value As String) As Long
  
' Convert string of bytes to long value.
' IN:  Value, string
' OUT: BytesToLong, long value converted from string of bytes
' Known bugs:
' Version   Date   Who Comment
' 00.00.000 020606 CFO Created
'******************************************************************************
  Dim lsHex As String, i As Integer
  
  For i = 1 To 4
    lsHex = Hex(AscB(MidB(Value, i, 1))) & lsHex
  Next
  BytesToLong = CLng("&H" & lsHex)

End Function

ǹͧŨ鹴 ûСȤҤ աûСȿѧǡѺ SMS ӹǹ 3 ¡ä SmsOpen, SmsSendMessage SmsClose ¤سеͧ¡ҹӴѺ SmsOpen ԴõԴ͡Ѻкǹ SMS ͧк, SmsSendMessage ͨѴ觢ͤѧŢͧ SmsClose ش÷ӧҹ

͡ҡǹͧѧտѧ蹷㹡ŧŢ»·ҧͧŢѾٻẺͧŢ ѧ SmsSendMessage ͧ ¡÷ӧҹ¿ѧ蹷١Ѳ س Christian Forsberg

鴡÷ӧҹ

  • ӡôѺŤԡ cmdSend 躹 лҡ˹ҵҧ Code View
  • ӡû͹¡ҹѧ ҧ ҧ
Private Sub cmdSend_Click()
Dim SMSHandle As Long
Dim SMSEvent As Long
Dim SMSAddress As String
Dim SMSProvider As String

' Open SMS Messaging Component
Call SmsOpen(SMS_MSGTYPE_TEXT, SMS_MODE_SEND, SMSHandle, SMSEvent)

' Set Address structure (UDT as string)
SMSAddress = LongToBytes(SMSAT_INTERNATIONAL) & txtNumber.Text

' Set Provider structure (UDT as string)
SMSProvider = LongToBytes(PS_MESSAGE_OPTION_NONE) & _
LongToBytes(PS_MESSAGE_CLASS0) & _
LongToBytes(PSRO_NONE)

' Send message
If 0 = SmsSendMessage(SMSHandle, 0, SMSAddress, 0, txtMessage.Text, _
LenB(txtMessage.Text), SMSProvider, 12, SMSDE_GSM, _
SMS_OPTION_DELIVERY_NONE, 0) Then
MsgBox "Message sent!", vbInformation, App.Title
Else
MsgBox "Could not send message!", vbCritical, App.Title
End If

' Close SMS Messaging Component
Call SmsClose(SMSHandle)

End Sub

ҡ鴨繡кǹ÷ӧҹ ѧҡسӡäԡ cmdSend 鹡÷ӧҹ¡ûСȵ 繵ͧ㹡÷ӧҹ ͨҡ繡¡ ѧ SmsOpen ԴõԴ͡Ѻк SMS 觼Ţͧ¡ ж١纤㹵 SMSHandle ͨҡ鹨繡кǹâͧҧŢѾ·ҧͧõԴ ¨աкآ͡˹ǢͧѺٻẺ仴

ͨҡ鹨зӡ¡ѧ SmsSendMessage աкآŷͧèѴ, Ţ»·ҧ Т ҡѧ蹡 SMS ӧҹ١ͧ Ф׹ 0 Ѻ ҡբͼԴҴ 觨աõǨͺʴš÷ӧҹ ҹҧ MsgBox ѺͤСͺ

  • ӡ÷ͺ·ӡҧԴ ҹԸաҡͧ ҧԴ
  • Դ駷 价ͺԴ駺ͧ Pocket PC кѾ
  • ӡû͹ŢѾͶͻ·ҧ Тͤͧ
  • ԡ͡ "Send SMS"
  • ˹ҵҧʴš÷ӧҹͧʴҺ
 

BACK

µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI)
µͨ Ѻͧ macbook pro 2016 (usb-c to HDMI) ´дѺ 4K
ŧ Mini DisplayPort to HDMI Adapter ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
ŧ Mini DisplayPort to HDMI Adapter Ѻͧ macbook air/pro, mac mini
µٿѧ Ъ Ѻ iPhone 7  7 Plus
µٿѧ Ъ Ѻ iPhone 7 7 Plus
ŧҡ USB-C Type  USB 3.1 Ѻ MacBook
ŧҡ USB-C Type USB 3.1 Ѻ MacBook
䢤ǧѺͧ Macbook Air/Pro
䢤ǧ Ѻͧ Macbook Air/Pro (300ҷ)
HDMI  3 ͡  1
HDMI 3 ͡ 1 (350ҷ)
Ի͹¹
¹¹ͷ
¹¹͹´
¹¹
¹¹ վʾ
¹¹
¹ҹԹء
¹¹Թ⿹
¹¹Ϊ ʤ
9M Blog ͧ͡ ¹ͧ
ԡ ҾѺԭ
OrmSin.com: ˹ѧͧҹ--չ (country crafts)
ѵҤɳ
 
Tutorial
eVB Tutorial
ASP.NET Webmatrix Tutorial
J2ME Tutorial
C++  Tutorial
Java  Tutorial
PHP Tutorial
ASP Tutorial
 
ẺǨ
Freelance ѺѲ

Home - Article - Tutorial - Sourcecode - Dev Handbook - Search - WebBoard - Links - About Us

ʧǹԢԷ Ѵ͡ ӫ Ѵŧ ٻẺ Ѻ͹حҵѡɳѡ
Ţ¹ҳԪ硷͹ԡҡзǧҳԪ: 7100503002000
Copyright 2001 SourceCode.in.th