易语言近似等于的第一个程序：判断一个URL网址是否为http://或https://开头

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型
   
7. .局部变量 网址, 文本型
   
8. 
   
9. .如果真 (输入框 (“请输入网址(http:// 或 https://开头):”, , , 网址, , ) ＝ 假)
   
10.     返回 (0)
    
11. .如果真结束
    
12. .判断开始 (网址 ≈ “http://”)
    
13.     信息框 (“http://”, 0, , )
    
14. .判断 (网址 ≈ “https://”)
    
15.     信息框 (“https://”, 0, , )
    
16. .默认
    
17.     信息框 (“不支持”, 0, , )
    
18. .判断结束
    
19. 
    
20. 返回 (0)
    

复制代码