Announcement content=to bytes (delete all empty (_ startup window. Announcement information edit box.))
Notice length=fetch bytes set length (announcement)
Announce information=to bytes (_ startup window. Announcement information combination.)
Announce information=to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-1)) + + announcement information to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-2)) 'processing announcement title.. Information..
If (_ startup window. Announcement information. The current selected item=1) 'in account way, send message..
. If it (take the length of the text (_ startup window. Account.) 0 or less)
_ startup window. The title="please input account information announcement right!"
_ startup window. The notice sent. No false=
Return ()
. If the end of the
Account information=to bytes (delete all empty (_ startup window. Account. Content))
Account statement initial=bytes set to replace (account initial announcement, 69, the length in bytes (account information) + 1, account information + {0})
_ startup window. Announcement connection. To send data (bytes set replace (account initial announcement, 9, in bytes (announcement) + 1 set length, bulletin information + {0}))
Delay (500)
Cycle to judge the first () 'send information in any other way..
If (length x times - data length + data length announcement length or higher)
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length - (length x times - data length is + data length - announcement - 1))
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length - (length x times - data length + data length - announcement length))
If end
Announce information=to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-1)) + + announcement information to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-2))
_ startup window. Announcement connection. To send data (bytes set replace (account initial announcement, 9, in bytes (announcement) + 1 set length, bulletin information + {0}))
Jump out of the loop ()
. Otherwise,
Announcement. If the (processing characters between (in bytes (announcement content, data length x number of + 1 - data length, data length)))
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length)
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length)
If end
. Otherwise,
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length)
Into a number of false=
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length)
Into the number=true
If end
If end
_ startup window. Announcement connection. To send data (bytes set replace (account initial announcement, 9, data length + 1, information announcement + {0}))
=number of + 1
Delay (500)
If end
. Cycle judgment tail (true)
'complete account send announcement information...
. Otherwise,
_ startup window. Announcement connection. To send data (bytes set replace (system initial announcement, 9, take the length (announcement) + 1 bytes set, information announcement + {0}))
Delay (500)
Cycle to judge the first () 'send information in any other way..
If (length x times - data length + data length announcement length or higher)
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length - (length x times - data length is + data length - announcement - 1))
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length - (length x times - data length + data length - announcement length))
If end
Announce information=to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-1)) + + announcement information to bytes (take blank text (byte data length present 2 - set length (announcement) present 2-2))
_ startup window. Announcement connection. To send data (bytes set replace (system initial announcement, 9, take the length (announcement) + 1 bytes set, information announcement + {0}))
Jump out of the loop ()
. Otherwise,
Announcement. If the (processing characters between (in bytes (announcement content, data length x number of + 1 - data length, data length)))
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length)
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length)
If end
. Otherwise,
If (into)
Announcement information=fetch bytes between concentration (announcement content, data length x times - data length, data length)
Into a number of false=
. Otherwise,
Announcement information=fetch bytes between concentration (announcement content, data length x number of + 1 - data length, data length)
Into the number=true
If end
If end
_ startup window. Announcement connection. To send data (bytes set replace (system initial announcement, 9, the data length + 1, information announcement + {0}))
=number of + 1
Delay (500)
If end
. Cycle judgment tail (true)
If end
_ startup window. The title="your announcement has been sent successfully!"
_ startup window. The notice sent. No false=
. If the end of the
_ startup window. The notice sent. No false=
CodePudding user response:
Easy language all Chinese, to read, not not used to!CodePudding user response:
See the head of the pain, or find a professional translation software