Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÓÃCOM¿Ú·¢WAPPUSH,·µ»Ø+CMS ERROR: 500

 ¸ø³ö´úÂëÈçÏÂ:
Type WAPPushPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    PROTOCOL As String
    TPMRBase As String
    RePhoneNumLen As String
    RePhoneNumType As String
    RePhoneNum As String
   
    TPPID As String
    TPDSC As String
    TPVP As String
    MSGLen As String
   
    WAPPUSHHeadLen As String
    WAPPUSHFlag As String
    DATALen As String
    WAPPUSHCOMBFlag As String
    Total As String
    MSGID As String
    WapPushUDH As String
    WapPushPUD As String
   
'    WAPPUSHBegin As String
'    WSP As String
'    Flag As String
'    DTDSIFlag As String
'    UTF As String
'    FlagBegin As String
   
'    SIBegin As String
'
'    IndicationBegin As String
'
'    Action As String
'    Href As String
'    HrefBegin As String
   
    WapPushIndicator As String
   
    URL As String
   
   
'    HrefEnd As String
'    Split As String
'    TitleBegin As String
   
    WapPushDisplayTextHeader As String
   
    title As String
   
'    TitleEnd As String
'    SIEnd As String
'    IndicationEnd As String
    EndOfWapPush As String
   
   &nb


Ïà¹ØÎĵµ£º

VB ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨

VBÎı¾¼ÓÃÜ ÌØ±ðÉè¼Æµ½ÖÐÎļÓÃÜ ÈúܶàÈ˷Ѿ¡ÖÜÕÛ,¾­³£»áÅöµ½½âÃÜÖÐÎijöÏÖÂÒÂëµÄÇé¿ö
ÏÂÃæÕâÆªÎÄÕ½«¶Ô´Ë×öÁË˵Ã÷
´úÂëÒ²ÔÚÎÄÕÂÀïÃæ°üÀ¨
¼ÆËã»úÊÀ½ç2000ÄêµÚ36ÆÚ
ʵÏÖÖÐÎÄÎı¾µÄ¼ÓÃÜ·½·¨
Î人½»Í¨¿Æ¼¼´óѧ¼ÆËã»ú¿ÆÑ§Ó빤³Ìϵ ÎâÒµ¸£
¡¡¡¡
      ±¾ÎĽéÉÜÁËÔÚVB6ÖÐʵÏÖÖС¢Ó¢ÎÄÎı¾¼Ó¡ ......

VBÖд°ÌåÄ£¿é¡¢±ê׼ģ¿é¡¢ÀàÄ£¿éµÄÇø±ð

VBµÄ´úÂë´æ´¢ÔÚÄ£¿éÖС£ÔÚVBÖÐÌṩÁËÈýÖÖÀàÐ͵ÄÄ£¿é£º´°ÌåÄ£¿é¡¢±ê׼ģ¿éºÍÀàÄ£¿é¡£
¡¡¡¡¼òµ¥µÄÓ¦ÓóÌÐò¿ÉÒÔÖ»ÓÐÒ»¸ö´°Ì壬ËùÓõijÌÐò¶¼×¤ÁôÔÚ´°ÌåÄ£¿éÖУ¬¶øµ±Ó¦ÓóÌÐòÅÓ´ó¸´ÔÓʱ£¬¾ÍÒªÁíÍ⸽¼Ó´°Ìå¡£×îÖÕ¿ÉÄÜÓм¸¸ö´°ÌåÖÐÓÐһЩ¹²Í¬¶¼ÒªÖ´ÐеĴúÂ룬ΪÁËÔÚÁ½¸ö´°ÌåÖв»²úÉúÖØ¸´´úÂ룬¿É´´½¨Ò»¸ö¶ÀÁ¢µÄÄ£¿é£¬ÓÃËüʵÏÖ´ú ......

VBʹÓÃÊÖÐεÄͼ±ê

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

ÎÞÒâÖз¢ÏÖVB ForÑ­»·µÄÒ»¸öÌØµã

ÎÞÒâÖз¢ÏÖVB ForÑ­»·µÄÒ»¸öÌØµã£ºÔÚÑ­»·ÌåÖУ¬Æóͼ¸Ä±äÑ­»·ÖÕÖ¹±äÁ¿Ê¹Ö®ÌáǰÍ˳öÑ­»·ÊÇͽÀ͵ġ£
Private Sub Form_Load()
  Dim s(0 To 4) As String
  Dim N As Integer, i As Integer
  s(0) = "²âÊÔ1"
  s(1) = "²âÊÔ2"
  s(2) = "²âÊÔ3"
  s(3) = "²âÊÔ4"
  s(4) = "²âÊÔ5 ......

VBÓëJAVA½»»¥


Private Sub Command1_Click()
Dim dso As New XMLDSOControl
Dim doc As IXMLDOMDocument
  Set doc = dso.XMLDocument
Dim rel  As IXMLDOMNodeList
Set x = CreateObject("Microsoft.XMLHTTP")
  x.Open "GET", "http://127.0.0.1:8080/emrb/Mrbmodel?action=dis&u ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ