here is code i was after it works it relly works lol
<?php
header ("Content-Type:text/xml");
define("IN_MYBB", 1);
require_once "./global.php";
require_once "./inc/functions_time.php";
$user = $db->simple_select("users", "*", "username='".$mybb->input['username']."'");
if($mybb->input['username'] && $db->num_rows($user) != 0)
{
$user = $db->fetch_array($user);
$usergroupcache = $cache->read("usergroups");
$doc = new DOMDocument();
$doc->formatOutput = true;
$u = $doc->createElement("user");
$doc->appendChild($u);
$usergroup = $doc->createElement("usergroup");
$usergroup->appendChild($doc->createTextNode($usergroupcache[$user['usergroup']]['gid']));
$numthreads = $db->simple_select("threads", "COUNT(tid) as count", "uid = ".$user['uid']);
$numthreads = $db->fetch_field($numthreads, "count");
$timesearch = TIME_NOW - $mybb->settings['wolcutoffmins']*60;
$query = $db->simple_select("sessions", "location,nopermission", "uid='".$user['uid']."' AND time>'".$timesearch."'", array('order_by' => 'time', 'order_dir' => 'DESC', 'limit' => 1));
$session = $db->fetch_array($query);
if ($db->num_rows($query) == 0)
{
$onlinestatustext = "Offline";
}
else
{
require_once MYBB_ROOT."inc/functions_online.php";
$lang->load("online");
$location = fetch_wol_activity($session['location'], $session['nopermission']);
$location = build_friendly_wol_location($location);
$onlinestatustext = "Online - ".strip_tags($location);
}
$u->appendChild($usergroup);
echo $doc->saveXML();
}
else
{
error("invalid user");
}
?>
example of
http://haxcore.net/forum/5.php?username=virus
it works user group check
now the ve.net code
Public Sub checkusergroup()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://www.haxcore.net/forum/5.php?username=" & ReactorTextBox1.Text)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim usergroup As String = sr.ReadToEnd()
If usergroup.Contains("<usergroup>4</usergroup>") Then 'admin
MsgBox("Welcome admin Member")
Form2.ReactorButton2.Visible = True 'This turn on the VIP side of the loader
ElseIf usergroup.Contains("<usergroup>5</usergroup>") Then 'super mod
MsgBox("Welcome registeredr")
Form2.ReactorButton1.Visible = True
ElseIf usergroup.Contains("7") Then 'mod
MsgBox("Welcome Staff Member")
'ReactorButton4.Visible = True
ElseIf usergroup.Contains("<usergroup>19</usergroup>") Then ' CA VIP
MsgBox("Welcome retired Staff Member")
Form2.ReactorButton3.Visible = True
ElseIf usergroup.Contains("10") Then ' WR VIP
MsgBox("Welcome Staff Member")
'ReactorButton4.Visible = True
ElseIf usergroup.Contains("11") Then ' Respected AKA Friends
MsgBox("Welcome Staff Member")
'ReactorButton4.Visible = True
ElseIf usergroup.Contains("12") Then ' Coders
MsgBox("Welcome Staff Member")
'ReactorButton4.Visible = True
ElseIf usergroup.Contains("13") Then ' Support Staff
MsgBox("Welcome Staff Member")
'ReactorButton4.Visible = True
MsgBox("Welcome Staff Member")
ElseIf usergroup.Contains("8") Then ' Banned User
MsgBox("You have been banned by a Forum Staff member! Please contact anyone of the staff to appeal your ban. In order to secure the loader you have been banned on the loader and forums!", MsgBoxStyle.Critical, "AmazingHacks.net Ban Message")
Me.Close()
Else
'ReactorButton4.Visible = False 'VIP button on form1
End If
End Sub
Private Sub ReactorButton1_Click(sender As Object, e As EventArgs) Handles ReactorButton1.Click
checkusergroup()
Dim wrkr As New HTTPWorker()
Dim myBBForum As New myBB("http://haxcore.net/forum/", ReactorTextBox1.Text, ReactorTextBox2.Text)
If wrkr.login(myBBForum) Then
MsgBox("Logged in successfully!")
Me.Hide()
Form2.Show()
Else
MsgBox("Invalid account, please try again! Register if you don't have an account.")
End If
End Sub
this is what i was looking for