ICQコード

昨日面白いものを見つけました。
有名なicq2go Webクライアントがあります
フラッシュで作られている


ご覧のとおり、右クリックすると、「コードビュー」という項目が表示されます。
私がやった。

そして、ここに私が見たものがあります:
REM Flash ICQ Clientバージョン1.0ビルド2

REM #include <stdio.h>
REMインクルード行をコメントアウトする必要があったが、VBはそれを好まなかった

REM連絡先リストの初期化
10 CLS
2003年12月10日にdflで追加されたREM CLS

15オープンダイアログ
REM 20 FOR I = 1から100
REM dfl 27-Dec-2004、103連絡先のサポートを追加
20 FOR I = 1から103
30お問い合わせを読む$
40プリントお問い合わせ
50 NEXT I

REMメインアプリケーションループ

60入力 ""コマンド$
65コマンド$ =「終了」の場合GOTO 200
70コマンド$ = "SEND_MESSAGE"の場合はGOTO 90
75コマンド$ = "GET_MESSAGE"の場合、GOTO 100
78コマンド$ =「終了」の場合GOTO 82
REM $$ Todo:多言語入力のサポートを追加
80後藤60
82後藤130

90メッセージ送信$
95後藤60
100 READ IN_MESSAGE $
100 IN_MESSAGE $プリント
110 GOTO 60

REMクライアントクリーンアップシーケンスの開始

130後藤150
150 GOTO 170

REM終了のクリーンアップ、死ぬ準備ができました

170停止
200終了

レムエンド


これは基本です!!! ..
誰が問題を説明できますか?
たぶんこれは冗談ですか?

Source: https://habr.com/ru/post/J11559/


All Articles