📄 postdlg.cpp

📁 往新浪论坛sina:tech?richwin上加帖子的程序
💻 CPP
📖 第 1 页 / 共 2 页
字号:
上一页 12
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "文学城论坛", MB_OK);
#endif


//9新华通论坛http://207.151.76.245/cgi-bin/mainpage.pl     not
	sURL = "http://207.151.76.245/cgi-bin/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "新华通论坛", MB_OK);
#endif

//10新大陆http://www.bbsland.com/cgi-bin/newland.cgi
	sURL = "http://www.bbsland.com/cgi-bin/post_nl.cgi";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "新大陆", MB_OK);
#endif

//11世界军事论坛http://www.wforum.com/home/wmfmain.html
	sURL = "http://www.wforum.com/cgi-bin/wmf/anyboard.cgi/wmf/";
	sData = "abc=hV&cmd=sA&name=" + sName + 
			"&passwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "世界军事论坛", MB_OK);
#endif

//12战争风云http://omniboard.hypermart.net/military/mainpage.pl
	sURL = "http://omniboard.hypermart.net/military/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "战争风云", MB_OK);
#endif

//13指点江山http://207.151.76.248/cgi-bin/mainpage.pl
	sURL = "http://207.151.76.248/cgi-bin/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "指点江山", MB_OK);
#endif

//14风花雪月http://207.151.76.247/cgi-bin/mainpage.pl
	sURL = "http://207.151.76.247/cgi-bin/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "风花雪月", MB_OK);
#endif


//15大家论坛http://www.duoweinews.com/BBS/Dajia/mainpage.cgi?encoding=gb
	sURL = "http://www.duoweinews.com/BBS/Dajia/mainboard.cgi";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=&unidoc=gb2312" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "大家论坛", MB_OK);
#endif

//16你说我说论坛http://nsws.hypermart.net/forum/mainpage.pl
	sURL = "http://nsws.hypermart.net/forum/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "你说我说论坛", MB_OK);
#endif

//17海阔天空论坛http://www.toptoday.com/freebbs/corydon/corydon1.shtml
	sURL = "http://nsws.hypermart.net/forum/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "海阔天空论坛", MB_OK);
#endif

//18新闻论坛 http://www.jumperhome.com/forums/F-pltc.htm
	sURL = "http://www.jumperhome.com/cgi-bin/pltc-mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&sort=[随便谈谈]" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "新闻论坛", MB_OK);
#endif

//19大中华强国论坛http://www.auch.com.au/greatchina/forum/mainpage.pl
	sURL = "http://www.auch.com.au/greatchina/forum/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "大中华强国论坛", MB_OK);
#endif

//20校友论坛http://www.omnitalk.net/alumni/mainpage.pl
	sURL = "http://www.omnitalk.net/alumni/mainboard.pl";
	sData = "name=" + sName + 
			"&usrpwd=" + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "校友论坛", MB_OK);
#endif

//21中 国 学 生 在 美 国http://www.cstudent.com/usabbs/usabbs1.shtml
	sURL = "http://www.cstudent.com/cgi-usabbs/usabbs.cgi";
	sData = "name=" + sName + 
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "中 国 学 生 在 美 国", MB_OK);
#endif

//22茗香茶语http://www.bbsland.com/cgi-bin/tea.cgi
	sURL = "http://www.bbsland.com/cgi-bin/post_tea.cgi";
	sData = "name=" + sName + 
			"&usrpwd=" +
			"&email=" + 
			"&subject=" + sTitle +
			"&body=" + sBody +
			"&url=" + sUrl +
			"&url_title=" + sUrlTitle +
			"&img=";
	for (i = 0; i < TRYNUM; i++) 
		if (internet.httpPost(sURL,sData, sFile, nResult, sErrMsg)) break;
#ifdef SETMESSAGE
	if (i <= TRYNUM)
	MessageBox(NULL, sFile, "茗香茶语", MB_OK);
#endif


//23新浪http://bbs2.sina.com.cn/fbin/list.pl?forumid=46&startfullpath=/939588307c25771&count=150

	sName = "full123";
	sURL = "http://bbs2.sina.com.cn/fbin/post.pl";
	sData = "author=" + sName + 
			"&password=" + sName +
			"&email=" + 
			"&subject=" + sTitle +
			"&copyfrom=" +
			"&body=" + sBody +
			"&urlname" + sUrlTitle +
			"&refurl=" + sUrl +
			"&refimg=";
	while(!internet.httpPost(sURL,sData, sFile, nResult, sErrMsg, "multipart/form-data")){
		MessageBox(NULL, sErrMsg, "", MB_OK);
	};
	MessageBox(NULL, sFile, "中 国 学 生 在 美 国", MB_OK);
*/
}

void PostDlg::OnRadio1() 
{
	GetDlgItem(IDC_REFID)->EnableWindow(FALSE);	
	GetDlgItem(IDC_REPSTATIC)->EnableWindow(FALSE);	
}

void PostDlg::OnRadio2() 
{
	GetDlgItem(IDC_REFID)->EnableWindow(TRUE);	
	GetDlgItem(IDC_REPSTATIC)->EnableWindow(TRUE);	
}

BOOL PostDlg::OnInitDialog() 
{
	CDialog::OnInitDialog();
	
	GetDlgItem(IDC_REFID)->EnableWindow(FALSE);	
	GetDlgItem(IDC_REPSTATIC)->EnableWindow(FALSE);	
	
	return TRUE;  // return TRUE unless you set the focus to a control
	              // EXCEPTION: OCX Property Pages should return FALSE
}
上一页 12
💿 文件大小 28 K
👤 上传用户 ok34090512
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#richwin #sina #tech #论坛
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -