AutoHotkey Community

;
; 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