Trubbleguy
Joined: 20 Jan 2007
Posts: 76
Location: Melbourne
|
 Posted: Thu Apr 24, 2008 4:16 am Post subject: GigaTribe Friends list publisher. |
 |
|
this program gets all your friends from your GigaTribe Users list (expanded tree only) and then lets you remove ones you dont want other users to know about,
and then publishes them in you Gigatribe shared folder for your other current GigaTribe users to download.
All with a simple click instead of typing in all the user details.
It publishes a single htm file with all users with their own link to click and request a invite.
your GigaTribe users can then download and then expand their friends with yours.
| Code: |
;
; AutoHotkey Version: 1.x
; Language: English
; Platform: Win9x/NT
; Author: trubbleguy
;
; Script Function:
; share your gigatribe users with your gigatribe users.
;
#SingleInstance Force
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
_ini=%A_ScriptDir%\gigalist.ini
iniread,reqtxt,%_ini%, options, reqtxt,I am a Friend of%A_Space%
iniread,_rootloc,%_ini%, options, sharedfolderlocation,Please select folder
Gui, 1:Add, Button, x12 y12 w100 h20 gsetshared , SELECT
Gui, 1:Add, Edit, x117 y12 w206 r1 v_rootloc, %_rootloc%
Gui, 1:Add, Text, x330 y14 r1 ,A Shared GigaTribe folder (Where to Publish)
Gui, 1:Add, Button, x12 yp+22 w100 h20 ggetlist , Get User list
Gui, 1:Add, Edit, xp+105 yp w206 r1 vreqtxt ,%reqtxt%
Gui, 1:Add, Text, x330 yp+3 r1 ,Put your request here
Gui, 1:Add, Text, x12 yp+22 r1 ,Network Tab with Expanded Group must be Visible on GigaTribe for this to work
Gui, 1:Add, Text, x12 yp+14 r1 ,Collapsed Groups will not list when 'Get User List' is clicked
Gui, 1:Add, Text, x12 yp+14 r1 ,Right Click a User to remove them from the list
Gui, 1:Add, ListView, x12 yp+20 w520 r10 gListBoxClick1 AltSubmit grid,User|Request to User | | |
Gui, 1:Add, Button, x12 yp+200 w100 h20 gpublish , Publish User list
Gui, Show
return
setshared:
oldroot=%_rootloc%
FileSelectFolder, _rootloc,*%_rootloc%,0,Select a folder where you know its shared in GigaTribe
If Errorlevel=1
{
_rootloc=%oldroot%
Return
}
StringRight, LastChar, _rootloc, 1
if LastChar = \
StringTrimRight, _rootloc,_rootloc, 1 ; Remove the trailing backslash.
GuiControl,,_rootloc, %_rootloc%
return
ListBoxClick1:
if A_GuiControlEvent = RightClick
{
loop 3
ndbb%A_Index%=
Gui,Listview,SysListView321
FocusedRowNumber := LV_GetNext(0, "F") ; Find the focused row.
if not FocusedRowNumber ; No row is focused.
Return
LV_Delete(FocusedRowNumber)
LV_Modify(FocusedRowNumber,"Select")
}
Return
!^c::
getlist:
Gui,Submit,Nohide
Gui +LastFound
Gui,Listview,SysListView321
Lv_Delete()
DetectHiddenText, On
;ControlFocus ,SysListView321,GigaTribe
ControlGet,OutputVar,List,all,SysListView321,GigaTribe
loop,parse,OutputVar,`n,`n`r
{
part1=
part2=
part3=
stringSplit,part,A_LoopField,%A_Tab%,`n,r
if not part2
continue
;list1 = <a href="GigaTribe://%part1%:Trubbleguy has recommended you">Invite %part1% </a><BR>`n%list1%
list1 = GigaTribe://%part1%:%reqtxt%
LV_Add(" ",part1,list1)
}
LV_ModifyCol()
LV_ModifyCol(1,"sort")
list1=
Return
GuiClose:
Gui,Submit,Nohide
iniwrite,%reqtxt%,%_ini%, options, reqtxt
iniwrite,%_rootloc%,%_ini%, options, sharedfolderlocation
Exitapp
Return
publish:
Gui,Listview,SysListView321
Loop % LV_GetCount()
{
LV_GetText(n1,A_Index,1)
LV_GetText(n2,A_Index,2)
myfriends = <a href="%n2%">Invite %n1% </a><BR>`n%myfriends%
}
IfExist,%_rootloc%\My_GigaTribe_Friends.htm
FileDelete,%_rootloc%\My_GigaTribe_Friends.htm
FileAppend,%myfriends%,%_rootloc%\My_GigaTribe_Friends.htm
Msgbox,4,Done,Open the List to check it in Browser?
IfMsgBox,Yes
run,%_rootloc%\My_GigaTribe_Friends.htm
Return
|
you have to be in the Network tab with only the group you want to share in expanded mode, and visible, as collapsed groups do not list.
_________________
 |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
