SetupBBS 板


這隻程式要有 popupmenu 功能才能直接使用唷 ~ 假如沒有的話 , 得把 main 中的 popupmenu_ans 改成 vans :) /*-------------------------------------------------------*/ /* star.c (YZU WindTopBBS Ver 3.02 ) */ /*-------------------------------------------------------*/ /* author : [email protected] */ /* target : http://mindcity.sina.com.tw */ /* create : 01/07/09 */ /* modify : 03/07/12 */ /*-------------------------------------------------------*/ #include "bbs.h" #define mouts(y,x,s) { move(y,x); outs(s); } #define PROXY_PORT 8080 #define PROXY_HREF "proxy.yzu.edu.tw" #define SERVER_HREF "http://mindcity.sina.com.tw" #define LINE_WORD 50 char *tag_s[4] = {"!--START:HORO_TODAY--","!--START:HORO_TOMORROW--"}; char *tag_e[4] = {"!--END:HORO_TODAY--","!--END:HORO_TOMORROW--"}; char *star[12] = {"aries","taurus","gemini","cancer","leo","virgo", "libra","scorpio","sagittarius","capricorn","aquarius","pisces"}; char *draw_star[20] = {"╭─╮","│ │","╰─╮","│ │","╰─╯", "╭┬╮","│││","│││"," │ "," │ ", "╭─╮","│ │","├─┤","│ │","│ │", "╭─╮","│ │","├─╯","│ \ ","│ │"}; static int http_conn(char *server, char *s,int kind) { int sockfd, start_show,chinese=0,state=0; int cc, tlen,word=0,show=0; char *xhead, *xtail, tag[128], fname[50]; static char pool[2048]; FILE *fp; mouts(23, 0, "正在連接伺服器,請稍後.........."); if ((sockfd = dns_open(server, PROXY_PORT)) < 0) { vmsg("無法與伺服器取得連結,查詢失敗"); return 0; } else { refresh(); } write(sockfd, s, strlen(s)); shutdown(sockfd, 1); /* parser return message from web server */ xhead = pool; xtail = pool; tlen = 0; start_show = 0; sprintf(fname, "tmp/%s.star", cuser.userid); clear(); fp = fopen(fname, "w"); fprintf(fp,"\n %s",draw_star[show++]); for (;;) { if (xhead >= xtail) { xhead = pool; cc = read(sockfd, xhead, sizeof(pool)); if (cc <= 0) break; xtail = xhead + cc; } cc = *xhead++; if ((tlen == strlen(tag_s[kind])+1) && (!str_ncmp(tag,tag_s[kind],strlen(tag_s[kind])))) start_show = 1; if ((tlen == strlen(tag_e[kind])+1) && (!str_ncmp(tag,tag_e[kind],strlen(tag_e[kind])))) break; if (cc == '<' || cc == '&') { tlen = 1; continue; } if (tlen) { if (cc == '>' || cc == ';') { if ((tlen == 3) && (!str_ncmp(tag, "br", 2)) && start_show == 1 && state == 0) { fprintf(fp,"\n %s\t",draw_star[show++]); state = 1; } else if ((tlen == 3) && (!str_ncmp(tag, "tr", 2)) && start_show == 1 && kind>1 && state == 0) { fprintf(fp,"\n %s\t",draw_star[show++]); state =1; } tlen = 0; word=0; continue; } if (tlen <= 128) tag[tlen - 1] = cc; tlen++; continue; } if (start_show) { if (word > LINE_WORD && cc<0 && chinese==0 && state == 0) { fprintf(fp,"\n %s\t",draw_star[show++]); state = 1; word = 0 ; } if (cc == ' ') chinese=0; else if (cc != '\r' && cc != '\n') { word++; fputc(cc, fp); state =0 ; chinese = (cc<0)?((chinese==1)?0:1):0; } else { word = 0; } } } close(sockfd); fprintf(fp,"\n %s\t資料來源為新浪星座算命網(http://mindcity.sina.com.tw/)", (show>19)?"":draw_star[show]); fclose(fp); more(fname, NULL); unlink(fname); return 0; } /* 起始點 */ int main() { char buf[128],c1,c2; char *strades[13] = { "AAries 牡羊座", "BTaurus 金牛座", "CGemini 雙子座", "DCancer 巨蟹座", "ELeo 獅子座", "FVirgo 處女座", "GLibra 天秤座", "HScorpio 天蠍座", "ISagittarius 射手座", "JCapricorn 魔羯座", "KAquarius 水瓶座", "LPisces 雙魚座",NULL}; char *_kind[3] = {"AToday 今日運勢","BTomorrow 明日運勢",NULL}; if((c1 = popupmenu_ans(strades,"選擇星座",5,18))) { if((c2 = popupmenu_ans(_kind,"選擇類型",8,18))) { sprintf(buf,"GET %s/west/MC-12stars/%s%d.html HTTP/1.0\n\n",SERVER_HREF,star[c1-'a'],c2-'a'+1); http_conn(PROXY_HREF,buf,c2-'a'); } } return 0; } -- ※ Origin: 元智大學 風之塔 <bbs.yzu.edu.tw> ※ From : bbs.yzu.edu.tw







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草
伺服器連線錯誤,造成您的不便還請多多包涵!
「贊助商連結」






like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:Boy-Girl站內搜尋

TOP