Software login software DIY

zhaozj2021-02-17 61

Software Logging Software DIY HTTP protocol is one of the main protocols of the web service, and the file browsing and website dynamic data is implemented by this protocol. The process of implementation is to perform data requests (read, storage, etc.) to the web server via HTTP sessions. Our programmatically has POST and GET data requests. POST can be used to pass the data entered by the user to the CGI (ASP, JSP) program, and the CGI is re-taken by the Contect-Length environment variable to take the corresponding length of data stream information. If the data is submitted successfully, the server will generate a normal response, and its header information is: http / 1.1 200 ok website login is fill in the login information by the user, and is submitted by the CGI program to the web server. Submission as an example: First by the SOHU homepage into the website login screen, select the login category of the website, then fill in the website: This process consists of 2 steps, the first step fill in the name and website address of the website ( Http: // ...), the second step is filled in some details and then you can submit it. Really realizing data saving is the second step, its core web code (simplified) is:

website description:

</ textarea> ... <</ form> (Note: C016015005002 Different from the selected website category) Our program is to submit the button Submit in the analog web page by using the TNMHTTP component that passes through the Delphi perfect package To realize the quick and accurate registration of the website with program code. In this example, the author's program can successfully complete the website "10,000" (http://helps100000.yeah.net) login, login in Home> Company> Computer & Internet> Computer Software> Database Here. The interface components of the program are: 1 webbrowser component, 3 MEMO components, respectively, used to display the login feedback page and some prompt information. One NMHTTP1 component is the core component of this program. There is also a Button button.</p>
<p>In fact, the core code of the program is also a sentence: nmhttp1.post ('http://db.sohu.com/regurl/regform.asp? Step = crete & class = c016015005002 & sitename = 100,000 Why & url = http: //Helps1000000.yeah. Net ',' postdata.txt '; where the POST method has 2 parameters, the first parameter represents the Action section of the Form form, the second parameter is a string consisting of the value of each parameter in the <input> tag. Since the NMHTTP1 OutputFileMode property is set to True, the string of the second parameter is placed in an external text file postData.txt, the content of postData.txt is (no branch): Description = Discussion Computer Technology Collection Application Skills & Keywords = Computer Skills & District = Mountain Series & City = Xi'an & Contact = Zhang Qing Our Strings is obtained by analyzing web code. After the program is run, click the "Site Registration" button. If the machine is connected to the Internet, it will be as registered on the web page, soon returned "Registration Success" in WebBrowser1 or "Error: This website has been registered" . This program is successful in Windows98, IE5.0, Delphi5.0 environment. We can use a multi-threaded technology to make a practical software similar to "login cavalry" on this basis. // complete source code for the program are as follows: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, Psock, NMHttp, ExtCtrls; type TForm1 = class (TForm) NMHTTP1 : TNMHTTP; Panel1: TPanel; Button1: TButton; Memo3: TMemo; Memo2: TMemo; Memo1: TMemo; Panel2: TPanel; WebBrowser1: TWebBrowser; procedure Button1Click (Sender: TObject); procedure NMHTTP1Success (Cmd: CmdType); procedure NMHTTP1Failure ( cmd: CmdType); procedure FormCreate (Sender: TObject); private {Private declarations} public {public declarations} end; var Form1: TForm1; implementation {$ R * .DFM} procedure TForm1.FormCreate (Sender: TObject); begin WebBrowser1 .NaviGate ('About: blank');</p>
<p>procedure TForm1.Button1Click (Sender: TObject); begin With NMHTTP1 do Begin InputFileMode: = False; OutputFileMode: = True; ReportLevel: = Status_Basic; end; With NMHTTP1.HeaderInfo do begin Cookie: = ''; LocalMailAddress: = ''; LocalProgram: = '; referer: ='; userid: = '; password: ='; try nmhttp1.post ('http://db.sohu.com/regurl/regform.asp? Step = create & class = C016015005002 & sitename = Hundred Thousand Whys & url = http: //helps1000000.yeah.net','PostData.txt '); except showMessage (' Error '); end; End; end; procedure TForm1.NMHTTP1Success (Cmd:! CmdType) ; begin Case Cmd of CmdPOST: begin Memo1.Text: = NMHTTP1.Header; Memo2.Text: = NMHTTP1.Body; WebBrowser1.OleObject.document.body.innerHTML: = NMHTTP1.Body; Memo3.Lines.Add ( 'HTTP POST Successful '); End; end;</p>
<p>procedure TForm1.NMHTTP1Failure (Cmd: CmdType); begin Memo1.Text: = NMHTTP1.Header; Memo2.Text: = NMHTTP1.Body; case Cmd of CmdPOST: Memo3.Lines.Add ( 'HTTP Post Failed'); end; end End. ----------------------------------------------- - Zhang Qing (Xi'an NET-E Software System Engineering Company) Email: zhangking@263.net http://soft.why100000.com</p></div><div class="text-center mt-3 text-grey">
转载请注明原文地址:https://www.9cbs.com/read-28934.html</div><div class="plugin d-flex justify-content-center mt-3"></div><hr><div class="row"><div class="col-lg-12 text-muted mt-2"><i class="icon-tags mr-2"></i><span class="badge border border-secondary mr-2"><h2 class="h6 mb-0 small"><a class="text-secondary" href="tag-2.html">9cbs</a></h2></span></div></div></div></div><div class="card card-postlist border-white shadow"><div class="card-body"><div class="card-title"><div class="d-flex justify-content-between"><div><b>New Post</b>(<span class="posts">0</span>)
</div><div></div></div></div><ul class="postlist list-unstyled">

</ul></div></div><div class="d-none threadlist"><input type="checkbox" name="modtid" value="28934" checked /></div></div></div></div></div><footer class="text-muted small bg-dark py-4 mt-3" id="footer"><div class="container"><div class="row"><div class="col">CopyRight © 2020 All Rights Reserved

</div><div class="col text-right">Processed:
<b>0.062</b>, SQL:
                <b>9</b></div></div></div></footer><script src="./lang/en-us/lang.js?2.2.0"></script><script src="view/js/jquery.min.js?2.2.0"></script><script src="view/js/popper.min.js?2.2.0"></script><script src="view/js/bootstrap.min.js?2.2.0"></script><script src="view/js/xiuno.js?2.2.0"></script><script src="view/js/bootstrap-plugin.js?2.2.0"></script><script src="view/js/async.min.js?2.2.0"></script><script src="view/js/form.js?2.2.0"></script><script>
var debug = DEBUG = 0;
var url_rewrite_on = 1;
var url_path = './';
var forumarr = {"1":"Tech"};
var fid = 1;
var uid = 0;
var gid = 0;
xn.options.water_image_url = 'view/img/water-small.png';
</script><script src="view/js/wellcms.js?2.2.0"></script><a class="scroll-to-top rounded" href="javascript:void(0);"><i class="icon-angle-up"></i></a><a class="scroll-to-bottom rounded" href="javascript:void(0);" style="display: inline;"><i class="icon-angle-down"></i></a></body></html><script>
var forum_url = 'list-1.html';
var safe_token = 'nCU0Mi3feTwQ8qkgh8v2rcJEQaO_2B96R0V_2FwMW2XoTbPvH8oa1W6hniolRb8seduNZAahAh7I4JtIsA4a39caNQ_3D_3D';
var body = $('body');
body.on('submit', '#form', function() {
var jthis = $(this);
    var jsubmit = jthis.find('#submit');
jthis.reset();
jsubmit.button('loading');
var postdata = jthis.serializeObject();
$.xpost(jthis.attr('action'), postdata, function(code, message) {
if(code == 0) {
location.reload();
} else {
$.alert(message);
jsubmit.button('reset');
}
});
return false;
});

function resize_image() {
var jmessagelist = $('div.message');
var first_width = jmessagelist.width(); 
jmessagelist.each(function() {
var jdiv = $(this);
var maxwidth = jdiv.attr('isfirst') ? first_width : jdiv.width();
var jmessage_width = Math.min(jdiv.width(), maxwidth);
jdiv.find('img, embed, iframe, video').each(function() {
var jimg = $(this);
var img_width = this.org_width;
var img_height = this.org_height;
if(!img_width) {
var img_width = jimg.attr('width');
var img_height = jimg.attr('height');
this.org_width = img_width;
this.org_height = img_height;
}

if(img_width > jmessage_width) {
if(this.tagName == 'IMG') {
jimg.width(jmessage_width);
jimg.css('height', 'auto');
jimg.css('cursor', 'pointer');
jimg.on('click', function() {

});
} else {
jimg.width(jmessage_width);
var height = (img_height / img_width) * jimg.width();
jimg.height(height);
}
}
});
});
}

function resize_table() {
$('div.message').each(function() {
var jdiv = $(this);
jdiv.find('table').addClass('table').wrap('<div class="table-responsive"></div>'); 
});
}

$(function() {
resize_image();
resize_table();
$(window).on('resize', resize_image);
});

$('#nav li[data-active="fid-1"]').addClass('active');
</script>