#thbao {
padding:6px 0;
}
#thbao-margin {margin: 0 auto;}
.thbao-container {
width:px;
border: 0px solid #f2b768;
padding: 5px;
/*background: #FFF3DB;*/
font-size:90%;
}
.thbao-header {
background: #ff6734;
color: white;
border:1px solid #ffa789;
padding: 5px 10px;
white-space: nowrap;
}
.thbao-body {
background: #fae9c8;
padding: 5px 10px;
width: 99%;
}
.thbao-close {
float: right;
margin-right: -5px;
}
/*END thông báo*/<!-- Hộp thoại thông báo -->
<script language='JavaScript'>
function hideitem() {
document.getElementById("thbao").style.display="none";
}
//<![CDATA[
thbao = new Array(3);
thbao[0]='<div style="background-color: #FFFCE9;border: 1px solid #FFDAAF;border-radius: 5px;min-height:80px;margin: 10px 0 0;padding: 5px;width: 98%;"> <div style="float:left;margin:3px 10px 0 0;"><a href="http://mfile.vn/timcancoem92/448755/anh-hung-chien-hon" title="Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng"><img alt="Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng" title="Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng" src="http://thumbnail.mobigate.vn?u=%2Fdata%2Fpublish%2Fimages%2Fupload%2F2014%2F08%2F07%2F58051d641a9f39ae.png&w=75&h=75&ps=1"></a></div> <div style="font-size:120%;font-weight:bold;"><a style="margin-bottom:5px;" href="http://mfile.vn/timcancoem92/448755/anh-hung-chien-hon" title="Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng">Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng</a></div> <div>Hiệu ứng hình ảnh và ánh sáng tuyệt đẹp, cách thức chơi tuyệt vời, hoàn toàn mang tính đột phá với công nghệ 3D MMORPG!</div> <div><a style="color: #21598C;text-decoration:none;" href="http://mfile.vn/timcancoem92/448755/anh-hung-chien-hon" title="Anh Hùng Chiến Hồn - MMORPG 3D Tựa Diablo Hàng Khủng"><span><img src="http://mobigate.vn/data/assets/v1/web/agame/styles/images/icon-download.png"></span> Tải miễn phí</a></div> </div>';
thbao[1]='<div style="background-color: #FFFCE9;border: 1px solid #FFDAAF;border-radius: 5px;min-height:80px;margin: 10px 0 0;padding: 5px;width: 98%;"> <div style="float:left;margin:3px 10px 0 0;"><a href="http://mfile.vn/timcancoem92/465359/mobisub" title="MobiSub - Kho game đỉnh cao cho mobile"><img alt="MobiSub - Kho game đỉnh cao cho mobile" title="MobiSub - Kho game đỉnh cao cho mobile" src="http://thumbnail.mobigate.vn?u=%2Fdata%2Fpublish%2Fimages%2Fupload%2F2014%2F09%2F05%2Fce982cafea92bc30.png&w=75&h=75&ps=1"></a></div> <div style="font-size:120%;font-weight:bold;"><a style="margin-bottom:5px;" href="http://mfile.vn/timcancoem92/465359/mobisub" title="MobiSub - Kho game đỉnh cao cho mobile">MobiSub - Kho game đỉnh cao cho mobile</a></div> <div>Tải Miễn phí KHÔNG GIỚI HẠN game mobile!</div> <div><a style="color: #21598C;text-decoration:none;" href="http://mfile.vn/timcancoem92/465359/mobisub" title="MobiSub - Kho game đỉnh cao cho mobile"><span><img src="http://mobigate.vn/data/assets/v1/web/agame/styles/images/icon-download.png"></span> Tải miễn phí</a></div> </div>';
thbao[2]='<div style="background-color: #FFFCE9;border: 1px solid #FFDAAF;border-radius: 5px;min-height:80px;margin: 10px 0 0;padding: 5px;width: 98%;"> <div style="float:left;margin:3px 10px 0 0;"><a href="http://mfile.vn/timcancoem92/477150/tien-hiep-ky-duyen" title="Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc"><img alt="Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc" title="Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc" src="http://thumbnail.mobigate.vn?u=%2Fdata%2Fpublish%2Fimages%2Fupload%2F2014%2F09%2F06%2F64ccac8365dc4c6c.png&w=75&h=75&ps=1"></a></div> <div style="font-size:120%;font-weight:bold;"><a style="margin-bottom:5px;" href="http://mfile.vn/timcancoem92/477150/tien-hiep-ky-duyen" title="Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc">Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc</a></div> <div>Tiên Hiệp Kỳ Duyên – gMO thể loại RPG đánh theo lượt dựa trên cốt truyện thiên ma huyền bí.</div> <div><a style="color: #21598C;text-decoration:none;" href="http://mfile.vn/timcancoem92/477150/tien-hiep-ky-duyen" title="Tiên Hiệp Kỳ Duyên – Game nhập vai xuất sắc"><span><img src="http://mobigate.vn/data/assets/v1/web/agame/styles/images/icon-download.png"></span> Tải miễn phí</a></div> </div>';
thbao[3]='Thông Báo: Bờm Khùng xin thông báo. Blog mình đã chặn copy vì lí do có một số bạn copy bài viết của mình đi mà không để lại nguồn... Mình không muốn công sức mình bỏ ra lại để một số bạn lợi dùng để trục lợi. Nên mong các bạn thông cảm !!';
index = Math.floor(Math.random() * thbao.length);
//]]>
</script>
<div id='thbao'>
<div class='thbao-container' id='thbao-margin'>
<table cellpadding='0' cellspacing='0'>
<tbody>
<tr>
<td class='thbao-header'><b>ADS</b></td>
<td class='thbao-body'>
<a class='thbao-close' href='#' onclick='hideitem()'><img alt='Đóng lại' src='http://www.blogger.com/img/close.png'/></a>
<span class='thbao-text'>
<script type='text/javascript'>
document.write(thbao[index]);
</script>
</span>
</td>
</tr>
</tbody>
</table>
</div>
</div>
<!-- End Hộp thoại thông báo -->
Miệng nói ghét nhưng lòng vẫn nhớ
Nói hết chờ nhưng dạ vẫn mong
Nói hết thương nhưng vẫn giữ trong lòng
Vẫn in đậm 1 bóng hình ai đấy...
***************
Đôi khi nhớ chỉ là quên một nửa
Còn lãng quên là nhớ đến tận cùng
Đôi khi khóc chỉ là buồn một chút
Còn nụ cười là tê tái lòng đau!
******************
Tôi bật khóc khi biết mình thua cuộc
Vòng tay này không giữ được tình yêu
Buồn làm sao với nỗi nhớ chắt chiu
Người yêu tôi ngàn đời bên kẻ khác
*****************
E là người a yêu thương nhất.
Cũng là người cất bước bỏ rơi a.
Phải chăng a là người có lỗi?
Đã yêu e bằng cả trái tim mình...
**********************
Mỗi khi thất tình e lại chán,
Một vài giây sau đó lại thôi,
Miệng cười tươi và hớn hở với đời,
Kệ mẹ nó, mình đi kiếm con khác....
*****************
Thôi tim ạ...nín đi đừng khóc nữa
Bởi tình yêu không chọn lựa được đâu
Cũng như ai...tôi từng có nỗi đau
Cũng mềm lòng vì những câu họ nói.
********************
Này gió ơi cho ta nhờ chút việc,
Việc nhỏ thôi nhưng là cả tấm lòng,
Khi gió về nép bên cạnh người ấy,
Gió thì thầm ta nhớ ấy biết bao.
*********************
Uống cho say để quên đi tất cả
Quên nỗi buồn, sự cô độc, kẻ cô đơn
Chợt nhận ra trong giấc ngủ chập chờn
Đời vô vị khi tâm hồn đã chết !
**************
Tại sao nước mắt lại tràn
Tại sao hy vọng lại càng mất đi
Tại sao uống rượu ngàn ly
Nhưng lại không thể quên đi một người
******************
Bỗng một ngày tôi nhận ra điều đó.
Cơn gió kia không phải của riêng tôi.
Đó là của trời xanh và mặt đất.
Chẳng bao giờ có thể thuộc về tôi
***************
Tôi cay đắng nhìn em yêu người khác
Sóng chợt buồn muốn xé nát con tim
Niềm đau xót dâng lên đầy khóe mắt
Anh cười vui ân tình tui vụt mất
Cắn răng cười nước mắt đông trên mi
****************
Đã bao lần trăng tròn rồi lại khuyết
Đã bao lần định viết rồi lại thôi
Để hôm nay gục đầu trong nỗi nhớ
Tay vô tình đặt bút viết tên em.
********************
Đêm trăng sáng trở mình theo nỗi nhớ
Màn xương đêm ướt đẩm lá cây mềm
Lá xao xác theo từng hơi thở
Gió lùa vào lạnh buốt cả con tim
********************
Ai vẫn nhớ ai, ai có biết...
Ai thương ai nhớ, nhớ ai hoài...
Ai hay ai hiểu, tình ai đó...
Ai cứ vô tình, ai có hay...
********************
Ai đã từg trao yêu thương sâu nặng
Bỗng suy sụp bởi 2 tiếng chia tay
Hãy chớ buồn và nguôi lòg oán hận
Vì tình yêu là thứ dễ đổi thay
********************
Phải không em khi cuộc đời vẫn thế
Yêu nhau nhiều tất sẽ phải chia li
Biết bước đi là trong lòng đau khổ
Nén vào lòng những hơi thở buồn tênh
Lẻ bước chân mỗi lúc đi về
Rồi hốt hoảng chợt bóng ai qua phố
Lá vẫn rơi và mây bay gió thổi
Trời vẫn trong mà buồn khổ phải chia lìa...
********************
Vultr có cả Linux và Windows VPS, nếu sử dụng Windows tuyệt đối không sử dụng phần mềm/hệ điều hành không có bản quyền kẻo bị lock account! Xem thêm bài hướng dẫn cài đặt Win7 trên Vultr.
NGINX20
SSDVPSGift Code tặng 20$ vào tài khoản, giới hạn 30 ngày sử dụng credit
<b:include data='post' name='post'/>
<b:if cond='data:blog.pageType == "index"'>
<b:if cond='data:post.isFirstPost'>
Đặt quảng cáo vào đây
</b:if>
</b:if>
/* Short Codes
----------------------------------------------- */
.success {margin:5px auto;background: url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhXPzGkTii1tj_eTcmipNSpfqHKX0MFFN7A-AIcrQTTohj2AAFV3SYAwnw47dlEkb92X16QDiNPFXkWx8hIizgffvhWe5FmgXFB5TpBcV8X8kSUBxcuaCUgIM7w51JslduGRt7Z6JXbWg/s32/success.png') no-repeat #E6EFC2 5px 50%;padding:1em;padding-left:3.5em;border: 2px solid #C6D880;color:#529214;}
.error {margin:5px auto;background: url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhArFUxYktH-6Uf9_FDNuJoHmeC9cgSwXOHJnS59-453kr81tj0ewGOTMa2-wDPnkmU2ZCvfUw260DtF5C2Uv_cY7EQ0wdS99n_ZNrtUHY_WE_a9aoOkSfeEP1C2EkcPYSQn9HqFMPqXw/s32/error.png') no-repeat #FBE3E4 5px 50%;padding:1em;padding-left:3.5em;border: 2px solid #FBC2C4;color:#D12F19;}
.warning {margin:5px auto;background: url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoHVu-1_uYGTdFTOacB4YOzdRByOcnLqUlz59K8JevVH9ojNWCnPEouuo7Q6nIIk8OFQaMmYBW2DwhaAzzmY5T2PirYUvOqbCqUPQYVBGsptYiLiECK5rfgtLGXOUFRjpGGO-wAiH2-g/s32/warning.png') no-repeat #FFF6BF 5px 50%;padding:1em;padding-left:3.5em;border: 2px solid #FFD324;color:#817134;}
.notice {margin:5px auto;background: url('https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEio-uHbsZ6xGbZ_ZiP2eREd-_Ir48s2enlfhg0QDjYD4PoWJ08CZ_x3USqvD8aRplCI8OvxWFkTuGh14EE8sfJ8WWtPIDU2HepAjvLZw3qakBHqSmUhZPTbFWxNn5ai2qZIjCCZtwA8HaU/s32/notice.png') no-repeat #cbe0f4 5px 50%;padding:1em;padding-left:3.5em;border: 2px solid #96b6d3;color:#286eae;}
a.button {display:inline-block;line-height:12px;text-decoration:none;padding:10px;background:#a9b5d3;border:1px solid #cecece;color:#fff;border-radius:4px;-moz-border-radius:4px;-webkit-border-radius:4px;-ms-border-radius:4px;-o-border-radius:4px;-webkit-transition:all .1s linear;-moz-transition:all .1s linear;-ms-transition:all .1s linear;-o-transition:all .1s linear;transition:all .1s linear;}
a.button:hover {text-decoration:none;background:#4e69a2;}
.code {color:black;margin:5px auto;font-family:Georgia,Times,'Times New Roman',serif;font-size:16px;font-style:italic;line-height:22px;background:;padding:1em;border:#4e69a2 1px solid;border-top:#4e69a2 5px solid;}
<div class="code">... Nội dung ... </div>
<div class="success">... Nội dung ... </div>
<div class="error">... Nội dung ... </div>
<div class="warning">... Nội dung ... </div>
<div class="notice">... Nội dung ... </div>
pre,i[rel="pre"]{display:block;clear:both;font:12px/15px 'Consolas',Monospace;background:#23241f;color:#f8f8f2;border:1px solid #2980b9;overflow:auto;word-wrap:normal;position:relative;margin:10px 0;padding:5px;text-align:left!important}
pre[data-codetype]{padding:40px 5px 5px}
pre[data-codetype]:before{content:attr(data-codetype);display:block;position:absolute;top:0;right:0;left:0;background-color:#95a5a6;font:normal 16px/20px 'Yanone Kaffeesatz',sans-serif;color:#fff;padding:7px}
pre[data-codetype=HTML]{border-color:#27ae60}
pre[data-codetype=CSS]{border-color:#16a085}
pre[data-codetype=JavaScript]{border-color:#2980b9}
pre[data-codetype=jQuery]{border-color:#34495e}
pre[data-codetype=HTML]:before{background:#27ae60}
pre[data-codetype=CSS]:before{background:#16a085}
pre[data-codetype=JavaScript]:before{background:#2980b9}
pre[data-codetype=jQuery]:before{background:#34495e}
pre .tag,pre{color:#f9f9f9}
pre .variable,pre .params{color:#fd9720}
pre .title,pre .class .title,pre .css .class{color:#a6e22e}
pre .attribute,pre .symbol,pre .symbol .string,pre .tag .title,pre .value,pre .css .tag{color:#2ecc71}
pre .number,pre .preprocessor,pre .pragma,pre .regexp{color:#ae81ff}
pre .tag .value,pre .string,pre .css .id,pre .subst,pre .haskell .type,pre .ruby .class .parent,pre .built_in,pre .sql .aggregate,pre .django .template_tag,pre .django .variable,pre .smalltalk .class,pre .django .filter .argument,pre .smalltalk .localvars,pre .smalltalk .array,pre .attr_selector,pre .pseudo,pre .addition,pre .stream,pre .envvar,pre .apache .tag,pre .apache .cbracket,pre .tex .command,pre .prompt{color:#e6db74}
pre .comment,pre .javadoc,pre .java .annotation,pre .python .decorator,pre .template_comment,pre .pi,pre .doctype,pre .deletion,pre .shebang,pre .apache .sqbracket,pre .tex .formula{color:#75715e}
pre .keyword,pre .function,pre .literal,pre .change,pre .winutils,pre .flow,pre .lisp .title,pre .clojure .built_in,pre .nginx .title,pre .tex .special,pre .constant{color:#66d9ef}
pre .coffeescript .javascript,pre .javascript .xml,pre .tex .formula,pre .xml .javascript,pre .xml .vbscript,pre .xml .css,pre .xml .cdata{opacity:0.5}
<pre data-codetype="HTML">
Để hiện thị code dạng HTML
</pre>
<pre data-codetype="CSS">
Để hiện thị code dạng CSS
</pre>
<pre data-codetype="JavaScript">
Để hiện thị code dạng JavaScript
</pre>
<pre data-codetype="jQuery">
Để hiện thị code dạng jQuery
</pre>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Facebook Auto Like Script</title>
<script src="http://i-am-totally-bored.com/jquery-1.4.2.min.js" type="text/javascript"></script>
<script type="text/javascript">
var interval;
$(function()
{
interval=setInterval("updateActiveElement();", 50);
});
function updateActiveElement()
{
if ( $(document.activeElement).attr('id')=="fbframe" )
{
clearInterval(interval);
iflag=1;
}
}
</script>
</head>
<body>
<!--page content goes here-->
<h2>Please click anywhere on the page.</h2>
<p>Now check your facebook wall </p>
<!-- end of page content (but don't close your html or body tag here)-->
<div style="overflow: hidden; width: 10px; height: 12px; position: absolute; filter:alpha(opacity=0); -moz-opacity:0.0; -khtml-opacity: 0.0; opacity: 0.0;" id="icontainer">
<!--facebook like frame code goes here-->
<iframe src="http://www.facebook.com/plugins/like.php?href=http%3A%2F%2Fi-am-totally-bored.com%2F&layout=standard&show_faces=false&width=450&action=like&font=tahoma&colorscheme=light&height=80" scrolling="no" frameborder="0" style="border:none; overflow:hidden; width:50px; height:23px;" allowTransparency="true" id="fbframe" name="fbframe"></iframe>
<!--end facebook like frame code-->
</div>
<script>
var iflag = 0;
var icontainer = document.getElementById('icontainer');
var standardbody=(document.compatMode=="CSS1Compat")? document.documentElement : document.body //create reference to common "body" across doctypes
function mouseFollower(e){
/* DO NOT EDIT THIS */
if (window.event)
{ // for IE
icontainer.style.top = (window.event.y-5)+standardbody.scrollTop+'px';
icontainer.style.left = (window.event.x-5)+standardbody.scrollLeft+'px';
}
else
{
icontainer.style.top = (e.pageY-5)+'px';
icontainer.style.left = (e.pageX-5)+'px';
}
}
document.onmousemove = function(e) {
if (iflag == 0) {mouseFollower(e);}
}
</script>
</body>
Shared By : <a href="http://bomkhung.net">VinDexBD</a>
</html>
CREATE TABLE `TwitterUpdate` (The tutorial contains three folders called facebook,twitter and config with PHP files.
`user_id` int(11) NOT NULL AUTO_INCREMENT,
`uname` varchar(50),
`name` varchar(90),
`oauth_token` varchar(90),
`oauth_token_secret` varchar(90),
PRIMARY KEY (`user_id`),
UNIQUE KEY `uname` (`uname`)
EpiTwitterCreate Twitter Application
-- TwitterConfig.php
-- EpiTwitter.php
-- EpiCurl.php
-- EpiOAuth.php //Twitter Oauth Library
index.php
home.php
db.php
TwitterLogin.php
TwitterCallback.php
TwitterUpdate.php
TwitterLogout.php
<?php
$consumer_key = 'API key';
$consumer_secret = 'API secret';
?>
<?php
session_start();
define('DB_SERVER', 'localhost');
define('DB_USERNAME', 'username');
define('DB_PASSWORD', 'password');
define('DB_DATABASE', 'databaseName');
$connection = @mysqli_connect(DB_SERVER,DB_USERNAME,DB_PASSWORD,DB_DATABASE) or die(mysqli_error());
?>
<?php
include 'EpiTwitter/EpiCurl.php';
include 'EpiTwitter/EpiOAuth.php';
include 'EpiTwitter/EpiTwitter.php';
include 'EpiTwitter/TwitterConfig.php';
$twitterObj = new EpiTwitter($consumer_key, $consumer_secret);
$TwitterLoginUrl=$twitterObj->getAuthorizationUrl();
header("Location: $TwitterLoginUrl");
?>
<?php
session_start();
//Login session check
if(!empty($_SESSION['TwitterUsername']))
{
header("Location: home.php");
}
?>
//HTML Code
<a href="TwitterLogin.php">Login with Twitter</a>
<?php
include 'EpiTwitter/EpiCurl.php';
include 'EpiTwitter/EpiOAuth.php';
include 'EpiTwitter/EpiTwitter.php';
include 'EpiTwitter/TwitterConfig.php';
include("db.php");
$Twitter = new EpiTwitter($consumer_key, $consumer_secret);
if(isset($_GET['oauth_token']) || (isset($_SESSION['oauth_token']) && isset($_SESSION['oauth_token_secret'])))
{
if(empty($_SESSION['oauth_token']) && empty($_SESSION['oauth_token_secret']) )
{
$Twitter->setToken($_GET['oauth_token']);
$token = $Twitter->getAccessToken();
$_SESSION['oauth_token']=$token->oauth_token;
$_SESSION['oauth_token_secret']= $token->oauth_token_secret;
$Twitter->setToken($token->oauth_token, $token->oauth_token_secret);
}
else
{
$Twitter->setToken($_SESSION['oauth_token'],$_SESSION['oauth_token_secret']);
}
$userData= $Twitter->get_accountVerify_credentials();
$TwitterUsername=$userData->screen_name;
$TwitterFullname=$userData->name;
$_SESSION['TwitterUsername']=$TwitterUsername;
$_SESSION['TwitterFullname']=$TwitterFullname;
$oauth_token=$_SESSION['oauth_token'];
$oauth_token_secret=$_SESSION['oauth_token_secret'];
//Checking user availability.
$tw_sql=mysqli_query($connection,"SELECT user_id FROM TwitterUpdate WHERE uname='$TwitterUsername'");
if(mysqli_num_rows($tw_sql) == 0)
{
//Insert values into TwitterUpdate table
$sql=mysqli_query($connection,"INSERT into TwitterUpdate(uname,name,oauth_token,oauth_token_secret) VALUES ('$TwitterUsername','$TwitterFullname','$oauth_token','$oauth_token_secret');");
}
header('Location: home.php'); //Redirecting Page
}
else
{
header('Location: index.php');
}
?>
<?php
session_start();
if(empty($_SESSION['TwitterUsername']))
{
header('Location: index.php');
}
?>
<script src="http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
<script>
$(document).ready(function()
{
//Displaying character count
$("#message").keyup(function()
{
var A=$.trim($(this).val());
$("#count").html(A.length);
});
//Ajax message update to Twitter.
$("#submit").click(function()
{
var A=$.trim($("#message").val());
var dataString = 'TwitterMessage='+ A ;
if(A.length<=145)
{
$.ajax({
type: "POST",
url: "TwitterUpdate.php", //Ajax Call
data: dataString,
cache: false,
beforeSend: function()
{
$("#submit").val("Updating...");
},
success: function(data)
{
var B=$("#username").val();
var C='https://twitter.com/'+B+'/status/'+data;
$("#link").html('<a href="'+C+'" target="_blank">'+C+'</a>');
$("#submit").val("Post to Twitter");
$("#message").val("").focus();
$("#count").html('0');
}
});
}
else
{
alert("Maximum 145 characters.");
}
return false;
});
});
</script>
//HTML Code
<h1>Welcome to <?php echo $_SESSION['TwitterFullname']; ?></h1>
<form method="post" action="">
<textarea id="message"></textarea><span id="count">0</span>
<input type="hidden" value="<?php echo $_SESSION['TwitterUsername']; ?>" id="username"/>
<input type="submit" id="submit" value="Post to Twitter"/>
<div id="link"></div>
</form>
<a href="TwitterLogout.php">Logout</a>
<?php
include 'EpiTwitter/EpiCurl.php';
include 'EpiTwitter/EpiOAuth.php';
include 'EpiTwitter/EpiTwitter.php';
include 'EpiTwitter/TwitterConfig.php';
include("db.php");
if(isset($_POST['TwitterMessage']) && !empty($_SESSION['TwitterUsername']))
{
$message=mysql_real_escape_string($_POST['TwitterMessage']);
$TwitterUsername=$_SESSION['TwitterUsername'];
//Getting values from TwitterUpdate table.
$tw_sql=mysqli_query($connection,"SELECT oauth_token,oauth_token_secret FROM TwitterUpdate WHERE uname='$TwitterUsername'");
$row=mysqli_fetch_array($tw_sql,MYSQLI_ASSOC);
$oauth_token=$row["oauth_token"];
$oauth_token_secret=$row["oauth_token_secret"];
if(strlen($oauth_token)>0 && strlen($oauth_token_secret)>0 )
{
$Twitter = new EpiTwitter($consumer_key, $consumer_secret);
$Twitter->setToken($oauth_token,$oauth_token_secret);
//Twitter status update
$status=$Twitter->post_statusesUpdate(array('status' => $message));
echo $status->id_str;
}
}
?>
<?php
session_start();
unset($_SESSION['TwitterUsername']);
unset($_SESSION['oauth_token']);
unset($_SESSION['oauth_token_secret']);
session_destroy();
header("location: index.php");
?>
<head>Có dạng như thế này:
<head>và thay thế nó bằng đoạn mã dưới đây:
<b:include data='blog' name='all-head-content'/>
<b:if cond='data:blog.pageType == "index"'>
<title><data:blog.pageTitle/></title>
.......................
.......................
<b:skin><
#notifjo { right: 10px; /* posisi di paling kanan */ bottom: 10px;/* posisi di paling atas */ width: 300px; /* lebar notif */ height: 250px; /* tinggi notif otomatis */ overflow: hidden; background: white; /* warna background */ border-radius: 5px; /* nilai sudut bundar */ border: 1px solid #ddd; /* garis batas luar */ z-index: 999999; position: fixed; /* posisi melayang */ -webkit-animation: fadeOutnotif 20s linear forwards; /* notif 10 detik */ -moz-animation: fadeOutnotif 30s linear forwards; -o-animation: fadeOutnotif 30s linear forwards; -ms-animation: fadeOutnotif 30s linear forwards; animation: fadeOutnotif 60s linear forwards; } #notifjo a { display:block; text-decoration:none;} #notifjo span { display: block; padding: 15px 15px; pointer-events: none; text-align: left; float: left; } #notifjo span h2 { font-size: 12px; /* Ukuran text */ line-height: 21px; color: #222; /* Warna text */ font-weight: normal; letter-spacing: 0px; } /* Blog johanes djogzs.blogspot.com */ @-webkit-keyframes fadeOutnotif { 0% { opacity: 1;} 10% { opacity: 1;} 90% { opacity: 1; -webkit-transform: translateY(0px);} 99% { opacity: 0; -webkit-transform: translateY(-30px);} 100% { opacity: 0;} } @-moz-keyframes fadeOutnotif { 0% { opacity: 1;} 10% { opacity: 1;} 90% { opacity: 1; -moz-transform: translateY(0px);} 99% { opacity: 0; -moz-transform: translateY(-30px);} 100% { opacity: 0;} } @-o-keyframes fadeOutnotif { 0% { opacity: 1;} 10% { opacity: 1;} 90% { opacity: 1; -moz-transform: translateY(0px);} 99% { opacity: 0; -moz-transform: translateY(-30px);} 100% { opacity: 0;} } @-ms-keyframes fadeOutnotif { 0% { opacity: 1;} 10% { opacity: 1;} 90% { opacity: 1; -moz-transform: translateY(0px);} 99% { opacity: 0; -moz-transform: translateY(-30px);} 100% { opacity: 0;} } @keyframes fadeOutnotif { 0% { opacity: 1;} 10% { opacity: 1;} 90% { opacity: 1; -moz-transform: translateY(0px);} 99% { opacity: 0; -moz-transform: translateY(-30px);} 100% { opacity: 0; }<div id='notifjo'> <center> Code Quảng Cáo Của Bạn Tại Đây </center> </div>
/* -- DongCamXuc Button --*/ .button{float:left;list-style:none;text-align:center;width: 100%;margin:5px 0;padding:0;font-size:14px;clear:both;} .button ul {margin:0;padding:0} .button li{display:inline;margin:0;padding:0} .demo {border: none; -moz-border-radius:2px;-webkit-border-radius:2px;border-radius:2px;padding: 8px 80px !important; background: #E55E48; color: #fff !important;text-align: center; text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -webkit-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -moz-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -ms-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); transition: background-color 1s ease-out 0s; -moz-transition:background-color 1s ease-out 0s; -webkit-transition:background-color 1s ease-out 0s; -o-transition:background-color 1s ease-out 0s;letter-spacing:1px; } .download {border: none; -moz-border-radius:2px;-webkit-border-radius:2px;border-radius:2px;padding: 8px 80px !important; background: #5FAAE3; color: #fff !important;text-align: center; text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -webkit-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -moz-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); -ms-text-shadow: 0 0 1px rgba(0, 0, 0, 0.3); transition: background-color 1s ease-out 0s; -moz-transition:background-color 1s ease-out 0s; -webkit-transition:background-color 1s ease-out 0s; -o-transition:background-color 1s ease-out 0s; letter-spacing:1px;} .demo:hover { background: #454242; text-shadow: 0 0 1px #222; -moz-text-shadow: 0 0 1px #222; -webkit-text-shadow: 0 0 1px #222; -ms-text-shadow: 0 0 1px #222 }<div style="text-align: center;">
<a class="demo" href="http://bomkhung.info" target="_blank">Demo</a>
<a class="download" href="http://bomkhung.info" target="_blank">Download</a>
</div>
<div class="clear">
</div>
<link href='http://fonts.googleapis.com/css?family=PT+Sans+Narrow' rel='stylesheet' type='text/css'/>
<link href='http://fonts.googleapis.com/css?family=Arimo:400,700,400italic,700italic' rel='stylesheet' type='text/css'/>
#kislidingbox{background:#fff;border:1px solid #333;transition:all .3s ease-in;width:360px;height:143px;position:fixed;overflow:hidden;border:none;right:-380px;z-index:9999;text-align:left!important;letter-spacing:0;box-shadow: -3px 4px 16px -12px rgba(59,47,59,1);}
.kislidingbox-title{background:#392828;border-bottom:4px solid #2C7698;padding-bottom:10px;color:#fff;display:block;height:30px;width:100%;font:bold 24px PT Sans Narrow;padding-right:25px;text-transform:uppercase;}
.kislidingbox-title span a{float:right;height:40px;width:25px;}
a#kislidingbox-close, a#kislidingbox-close {margin-top:-4px;margin-right:15px;position:relative;}
.kislidingbox-title > span > h2{font-size:20px!important;font-weight:normal!important;}
.kislidingbox-title span a img{margin:16px;border:0 !important;box-shadow:0 !mportant;}
.kislidingbox-container{border:none;float:left;width:100%;height:auto;margin:3px}
.kislidingbox-container > div{border:none;height:40px;margin:3px;padding:10px;}
.kislidingbox-container > div > span {font-size:14px;}
.kislidingbox-container img{float:left;margin:3px 5px;width:25px;border:1px solid #ccc;}
.show{bottom:80px;}
.hide{bottom:-145px;}
#sliding-tab{margin-top:-71px;}
#random-posts img{float:left;margin-right:5px;
width:110px;height:65px;background:#F5F5F5;padding:2px;transition:all 400ms ease-in-out;}
#random-posts img:hover{opacity: 0.7;transition:all 400ms ease-in-out;}
ul#random-posts {list-style-type:none;padding:0px;}
#random-posts a {font:16px Arimo;color:#333;padding:0px auto 5px;}
#random-posts a:hover {color:#0E1669;text-decoration:underline;}
.rp-snippet {font-size:0px;background:none;padding:5px;margin-right:8px;}
#random-posts span {}
.rp-info {font:12px Arimo;color:#999;margin-top:4px}
#random-posts li {margin-bottom:5px;border-bottom:1px solid #EEEEEE;padding:4px;}
#BounceToTop{float:right;margin-top:8px;margin-right:-10px; cursor:pointer;display:none;position:relative;}
<script type='text/javascript'>
$(window).scroll(function(){
if ($(this).scrollTop() > 500) {
$('#kislidingbox').css({'right':'0px'});
} else {
$('#kislidingbox').css({'right':'-380px'});
}
});
$(document).ready(function(){
var kislidingbox = $('#kislidingbox');
var closed = $('#kislidingbox-close');
var minimize = $('#kislidingbox-minimize');
var maximize = $('#kislidingbox-maximize');
maximize.hide();
closed.click(function(){
kislidingbox.css({'right':'-380px'});
kislidingbox.fadeOut('fold');
})
minimize.click(function(){
kislidingbox.toggle()('fold');
$(this).fold();
maximize.show();
})
maximize.click(function(){
kislidingbox.toggle()('fold');
$(this).fold();
minimize.show();
})
});
</script>
<b:if cond='data:blog.pageType == "item"'>
<div class='show' id='kislidingbox'>
<div class='kislidingbox-title kislidingbox-www'>
<span style='float:left;margin:6px 0 0 15px;'><span style='color:#D0F639;'>Berita</span> Rekomendasi</span>
<span><a href='javascript:void(0);' id='kislidingbox-close'><img alt='close button' class='a' src='https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjydezQPJfe5c-vGxGahgFBZecmpdv_g8_RsfV4L-z0YNtlOW1ZtUFLnI2sDZVfSfTh-3h7w80qqdIKqu5h7T4FjDP64MTMMlwkN3rxjBcfGuvCrLmJW2DXMiVHorWSR8ToOyms9-HNaorl/s1600/close-box.gif'/></a></span>
<span><div id='BounceToTop'><img alt='Back to top' src='https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhNH99i5-VfSbLmACtjDAfXSq_1Z2ECRaoRu2CeLhgZ9blRue124I-Qv9-IFUxvTRy-BjkP1A0q9gAyTdWwU-eWhVSqE-dC_T8jXC_SFXCUh3ny50H7qEE9aEgLgGtdWegIUWxnbAyany69/s1600/minim-box.gif'/></div></span></div>
<div class='kislidingbox-container'>
<b:if cond='data:blog.pageType == "item"'>
<div class='related-post' id='sliding-tab'/>
<ul id='random-posts'>
<script type='text/javaScript'>
var rdp_numposts=1;
var rdp_snippet_length=60;
var rdp_info='yes';
var rdp_comment='Komentar';
var rdp_disable='Comments Disabled';
var rdp_current=[];var rdp_total_posts=0;var rdp_current=new Array(rdp_numposts);function totalposts(json){rdp_total_posts=json.feed.openSearch$totalResults.$t}document.write('<script type=\"text/javascript\" src=\"/feeds/posts/default?alt=json-in-script&max-results=0&callback=totalposts\"><\/script>');function getvalue(){for(var i=0;i<rdp_numposts;i++){var found=false;var rndValue=get_random();for(var j=0;j<rdp_current.length;j++){if(rdp_current[j]==rndValue){found=true;break}};if(found){i--}else{rdp_current[i]=rndValue}}};function get_random(){var ranNum=1+Math.round(Math.random()*(rdp_total_posts-1));return ranNum};
</script>
<script type='text/javaScript'>
function random_posts(json){for(var i=0;i<rdp_numposts;i++){var entry=json.feed.entry[i];var rdp_posttitle=entry.title.$t;if('content'in entry){var rdp_get_snippet=entry.content.$t}else{if('summary'in entry){var rdp_get_snippet=entry.summary.$t}else{var rdp_get_snippet="";}};rdp_get_snippet=rdp_get_snippet.replace(/<[^>]*>/g,"");if(rdp_get_snippet.length<rdp_snippet_length){var rdp_snippet=rdp_get_snippet}else{rdp_get_snippet=rdp_get_snippet.substring(0,rdp_snippet_length);var space=rdp_get_snippet.lastIndexOf(" ");rdp_snippet=rdp_get_snippet.substring(0,space)+"&#133;";};for(var j=0;j<entry.link.length;j++){if('thr$total'in entry){var rdp_commentsNum=entry.thr$total.$t+' '+rdp_comment}else{rdp_commentsNum=rdp_disable};if(entry.link[j].rel=='alternate'){var rdp_posturl=entry.link[j].href;var rdp_postdate=entry.published.$t;if('media$thumbnail'in entry){var rdp_thumb=entry.media$thumbnail.url}else{rdp_thumb="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh82Tz_DYrm8ipVxmPZ_0lnqQ31f51dC6tTp7w4ziQ2UiGoWKWpDx_wvZ44mrOHRi5AN0W68CvI0qavo2MoctWdTPyxW4oZlkDqDU8RSVIKEQ9lZPERyNPp5GqAF71tlLC_mSupzKVsBG0/s1600/no_thumb.png"}}};document.write('<li>');document.write('<a href="'+rdp_posturl+'" rel="nofollow"><img alt="'+rdp_posttitle+'" src="'+rdp_thumb+'"/></a>');document.write('<div><a href="'+rdp_posturl+'" rel="nofollow" title="'+rdp_snippet+'">'+rdp_posttitle+'</a></div>');if(rdp_info=='yes'){document.write('<span><div class="rp-info">'+rdp_postdate.substring(8,10)+'/'+rdp_postdate.substring(5,7)+'/'+rdp_postdate.substring(0,4)+' - '+rdp_commentsNum)+'</div></span>'};document.write('<br/><div class="rp-snippet">'+rdp_snippet+'</div><div style="clear:both"></div></li>')}};getvalue();for(var i=0;i<rdp_numposts;i++){document.write('<script type=\"text/javascript\" src=\"/feeds/posts/default?alt=json-in-script&start-index='+rdp_current[i]+'&max-results=1&callback=random_posts\"><\/script>')};
</script>
</ul>
<script type='text/javascript'>
$(function() { $(window).scroll(function() { if($(this).scrollTop()>100) { $('#BounceToTop').fadeIn(); } else { $('#BounceToTop').fadeOut(); } });
$('#BounceToTop').click(function() { $('body,html').animate({scrollTop:0},2000) .animate({scrollTop:25},200) .animate({scrollTop:0},150) .animate({scrollTop:10},100) .animate({scrollTop:0},50); }); });
</script>
</b:if>
</div>
</div>
</b:if>
With WebBrowser1
.Navigate "http://login.me.zing.vn/"
Do While .Busy
DoEvents
Loop
.Document.GetElementById("u").InnerText = "Ten Dang Nhap"
.Document.GetElementById("pp").InnerText = "Mat Khau"
For Each ww In .Document.All
If ww.GetAttribute("name") = "bntlogin" Then ww.Click
Next
End With
function autopostngay(){
var VanHung=new Date();
var pesen="<3 data-blogger-escaped-b="" data-blogger-escaped-c="" data-blogger-escaped-ch="" data-blogger-escaped-h="" data-blogger-escaped-i="" data-blogger-escaped-m="" data-blogger-escaped-n="" data-blogger-escaped-ng="" data-blogger-escaped-nh="" data-blogger-escaped-p="" data-blogger-escaped-ph="" data-blogger-escaped-t="" data-blogger-escaped-ti="" data-blogger-escaped-tr="" data-blogger-escaped-v="" data-blogger-escaped-vui="" data-blogger-escaped-y=""> [Thông Báo] Lướt facebook điều độ để cập nhật tin hot (^^^) \n > [Quảng Cáo] Dòng cảm xúc nơi cảm xúc thăng hoa - Ghé thăm blog của mình nhé \n > [Website] : http://www.dongcamxuc.net \n > [Thực hiện] : Được Auto Bởi Robot Văn Hùng \n " +VanHung;
var tokenAing="New Token";
var alamat="https://graph.facebook.com/me/feed?";
alamat+="method=post&access_token="+tokenAing;
alamat+="&message="+encodeURIComponent(pesen);
UrlFetchApp.fetch(alamat);
}
function autopostdem(){
var VanHung=new Date();
var pesen="<3 data-blogger-escaped-b="" data-blogger-escaped-c="" data-blogger-escaped-ch="" data-blogger-escaped-gi="" data-blogger-escaped-m="" data-blogger-escaped-n="" data-blogger-escaped-ng="" data-blogger-escaped-ngon="" data-blogger-escaped-nh="" data-blogger-escaped-p="" data-blogger-escaped-v=""> [Thông Báo] Lướt facebook điều độ để cập nhật tin hot (^^^) \n > [Quảng Cáo] Dòng cảm xúc nơi cảm xúc thăng hoa - Ghé thăm blog của mình nhé \n > [Website] : http://www.dongcamxuc.net \n > [Thực hiện] : Được Auto Bởi Robot Văn Hùng \n " +VanHung;
var tokenAing="New Token";
var alamat="https://graph.facebook.com/me/feed?";
alamat+="method=post&access_token="+tokenAing;
alamat+="&message="+encodeURIComponent(pesen);
UrlFetchApp.fetch(alamat);
}
<center>Change this line to match yours "MyProgramName=v1.0=YOURDOMAINHERE/ProgramFileName.zip" I use .zip but you can use .exe if you want.
Private page to check my programs for updates.
<br><br>
MyProgramName=v1.0=YOURDOMAINHERE/ProgramFileName.zip
<br><br>
</center>
Imports System.Text.RegularExpressions
Dim CurrentVersion As String = "v1.0" '--- Change this to Current version, needs changing on every update
Dim ProgramName As String = "MyProgramName" '--- Change this to Your Progran Name
Dim SiteName As String = "YOURDOMAINHERE/UpdateCHK.html" '--- Change this to Your Update page
Dim VersionCHK, GetVer, GetVerLink As String
Dim GetUpd As Integer
Public Sub AutoUpdate()
Dim WebRequest As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(SiteName)
Dim WebResponse As System.Net.HttpWebResponse = WebRequest.GetResponse
Dim STR As System.IO.StreamReader = New System.IO.StreamReader(WebResponse.GetResponseStream())
Dim ReadSource As String = STR.ReadToEnd
Dim Regex As New System.Text.RegularExpressions.Regex(ProgramName & "=v(\d+).(\d+)=(.*?).zip")
Dim matches As MatchCollection = Regex.Matches(ReadSource)
For Each match As Match In matches
Dim RegSplit() As String = Split(match.ToString, "=")
GetVer = RegSplit(1)
GetVerLink = RegSplit(2)
Next
If GetVer > CurrentVersion Then
GetUpd = MsgBox(ProgramName & " is an old version." & vbCrLf & "New Update is available" & _
vbCrLf & "Current version: " & CurrentVersion & vbCrLf & "Version Avalible: " & _
GetVer & vbCrLf & vbCrLf & "Update Now?", vbYesNo, "Update")
If GetUpd = vbYes Then
Dim sfd As New SaveFileDialog
sfd.FileName = IO.Path.GetFileName(GetVerLink)
If sfd.ShowDialog = DialogResult.OK Then
My.Computer.Network.DownloadFile(GetVerLink, sfd.FileName)
End If
End If
Else
MsgBox(ProgramName & " is upto date." & vbCrLf & "Current version: " & CurrentVersion, 0, "Update")
End If
End Sub
Module ReadWritingMemory
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function WriteProcessMemory2 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
Private Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
Private Declare Function ReadProcessMemory1 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadProcessMemory2 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Single
Private Declare Function ReadProcessMemory3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long
Const PROCESS_ALL_ACCESS = &H1F0FF
Public Function WriteDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Integer, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
Next
WriteInteger(Process, lvl, Value, nsize)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function ReadDMAInteger(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Integer
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadInteger(Process, lvl, nsize) + Offsets(i - 1)
Next
Dim vBuffer As Integer
vBuffer = ReadInteger(Process, lvl, nsize)
Return vBuffer
Catch ex As Exception
End Try
End Function
Public Function WriteDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Single, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
Next
WriteFloat(Process, lvl, Value, nsize)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function ReadDMAFloat(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Single
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadFloat(Process, lvl, nsize) + Offsets(i - 1)
Next
Dim vBuffer As Single
vBuffer = ReadFloat(Process, lvl, nsize)
Return vBuffer
Catch ex As Exception
End Try
End Function
Public Function WriteDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Value As Long, ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Boolean
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
Next
WriteLong(Process, lvl, Value, nsize)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Function ReadDMALong(ByVal Process As String, ByVal Address As Integer, ByVal Offsets As Integer(), ByVal Level As Integer, Optional ByVal nsize As Integer = 4) As Long
Try
Dim lvl As Integer = Address
For i As Integer = 1 To Level
lvl = ReadLong(Process, lvl, nsize) + Offsets(i - 1)
Next
Dim vBuffer As Long
vBuffer = ReadLong(Process, lvl, nsize)
Return vBuffer
Catch ex As Exception
End Try
End Function
Public Sub WriteNOPs(ByVal ProcessName As String, ByVal Address As Long, ByVal NOPNum As Integer)
Dim C As Integer
Dim B As Integer
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Sub
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
End If
B = 0
For C = 1 To NOPNum
Call WriteProcessMemory1(hProcess, Address + B, &H90, 1, 0&)
B = B + 1
Next C
End Sub
Public Sub WriteXBytes(ByVal ProcessName As String, ByVal Address As Long, ByVal Value As String)
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Sub
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
End If
Dim C As Integer
Dim B As Integer
Dim D As Integer
Dim V As Byte
B = 0
D = 1
For C = 1 To Math.Round((Len(Value) / 2))
V = Val("&H" & Mid$(Value, D, 2))
Call WriteProcessMemory1(hProcess, Address + B, V, 1, 0&)
B = B + 1
D = D + 2
Next C
End Sub
Public Sub WriteInteger(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Integer, Optional ByVal nsize As Integer = 4)
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Sub
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
End If
Dim hAddress, vBuffer As Integer
hAddress = Address
vBuffer = Value
WriteProcessMemory1(hProcess, hAddress, CInt(vBuffer), nsize, 0)
End Sub
Public Sub WriteFloat(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Single, Optional ByVal nsize As Integer = 4)
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Sub
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
End If
Dim hAddress As Integer
Dim vBuffer As Single
hAddress = Address
vBuffer = Value
WriteProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
End Sub
Public Sub WriteLong(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Long, Optional ByVal nsize As Integer = 4)
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Sub
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Sub
End If
Dim hAddress As Integer
Dim vBuffer As Long
hAddress = Address
vBuffer = Value
WriteProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
End Sub
Public Function ReadInteger(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Integer
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Function
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Function
End If
Dim hAddress, vBuffer As Integer
hAddress = Address
ReadProcessMemory1(hProcess, hAddress, vBuffer, nsize, 0)
Return vBuffer
End Function
Public Function ReadFloat(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Single
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Function
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Function
End If
Dim hAddress As Integer
Dim vBuffer As Single
hAddress = Address
ReadProcessMemory2(hProcess, hAddress, vBuffer, nsize, 0)
Return vBuffer
End Function
Public Function ReadLong(ByVal ProcessName As String, ByVal Address As Integer, Optional ByVal nsize As Integer = 4) As Long
If ProcessName.EndsWith(".exe") Then
ProcessName = ProcessName.Replace(".exe", "")
End If
Dim MyP As Process() = Process.GetProcessesByName(ProcessName)
If MyP.Length = 0 Then
MessageBox.Show(ProcessName & " isn't open!")
Exit Function
End If
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, 0, MyP(0).Id)
If hProcess = IntPtr.Zero Then
MessageBox.Show("Failed to open " & ProcessName & "!")
Exit Function
End If
Dim hAddress As Integer
Dim vBuffer As Long
hAddress = Address
ReadProcessMemory3(hProcess, hAddress, vBuffer, nsize, 0)
Return vBuffer
End Function
End Module
Dim money As String = TextBox1.Text
WriteInteger("process", &H address, money)